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I. BACKGROUND 



A. TEE EROELEH 

"Hew would increasing the number of ampihibious ships 
impact cn an amphibious landing?", "what happens if 
.. .?", "suppose we only had x number of troop helicop- 
ters...?". One way to answer questions like these is to 
actually conduct landings under the different conditions 
desired. However, the cost of a single landing exercise is 
enormous, and to run many operations would quickly devour 
the entire defense budget. The next best option for 

obtaining answers to the problem above is the use of one of 
the many tools available in a large class of decision 
support aids. That instrument, which has become extremely 
important when used properly, is the computer simulation. 

Before continuing, it is necessary to clarify seme 
terms, which have ever time, acquired different connota- 
tions. A model is a representation of an entity cr situ- 
ation by something else that has relevant features or 
properties of the original [Ref. 1: p. 10 ]. Simulation is an 
analytic technique using the mathematical and logical models 
which represent a real system in order to study the 
processes over periods of time. Neither definition implies 
the use of a computer, however, for the purposes of this 
text the terms will carry that implication [Ref. 1: p.9]. 

Modelling is the process by which an analyst arrives at a 
model or simulation [Bef. 2: p.9]. 

A model or simulation can be distinguished by its ulti- 
mate purpose. listed in Figure 1.1 [Ref. 1: p.10] are some 
cf the more common ones. 




Figure 1.1 Purpose of Simulation. 

The military applications of simulations ace primarily 
concentrated in the operations category. The goals of an 
operational type model are broken down as in Figure 1.2 
[Ref. 1: p. 13]. 




Figure 1.2 Goal of an Operational Model. 



Of the goals li 
military purposes i 
Some of the most 



sted above, 
s the planni 
preva lent 



the most important one for 
ng and evaluation category, 
uses under planning and 
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evaluation are technical evaluation, doctrinal evaluation, 
force structure evaluation, and planning. These classifica- 
tions of simulations determine the structure of the model. 
A model designed for research, for instance, wiL 1 te geared 
toward a technically oriented person who is familiar with 
computers, programming and the associated logic. A military 
oriented planning model must be designed for the staff 
officer who will be, more likely than not, unfi miliar with 
computers and programming techniques. This would imply the 
model should be easy to use and be accompanied by the appio- 

for the non-t echn ica 1 staff 
[ Eef . 1 : p. 1 3 ] 



priate level documentaion 
officer or decision maker. 



The scenario illustrated in the first paragraph of this 



thesis was surely posed 
Headquarters Marine Corps. 



to some staff officer at 
The response was probably either 
to lock for some existing model or contract to have one 
developed. The result is that there are several programs in 
existence which simulate the ship-to-shore movement of the 
amphibious operation. They exist as a portion of a larger 
• combat model or as an entity by themselves. These models, 
having been written seme time ago, were developed for use on 
large main frame computers. That fact automatically limits 
the availability to the staff officer or decision maker. 

With the proliferation of microcomputers, the next 
logical step in the evolution of this type of model was to 
provide the staff officer with the ability to run the simu- 
lation from his desk. This would allow him to respond 
rapidly to 'what if' type guestions which are often bantered 
about in planning sections of any headquarters. That 
requirement was, in fact, made and a civilian contract was 
let to develop a ship-to-shore model to be run on a micro- 
computer. Unfortunately, for some reason unknown to the 
author, the program that was developed was not implemented. 
It was 'shelved' at the Development Center, Quantico, Va. in 
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an unusable form with little documentation. The author, 
during his experience tour was exposed to the m3 del and was 
made aware of the need to have it completed. That leads in 
to the purpose of this thesis. 

B. POEPCSE 

The purpose of this thesis is to complete the develop- 
ment of the amphibious sh ip— to-shore model for use on a 
micr ccomputer. This will be accomplished by using a design 
process for simulations as if the model was being initiated 
from scratch. Included will be the capabilities and limita- 
tions of the model to ensure the decision maker has full 
knowledge of the output. Finally, the finished product will 
be accompanied by the appropriate level of documentation 
directed at the primary user. 



15 



II. si MU I AT IONS 



The process by which an analyst derives a model is 
considered as much an art as a science. Thus, there are no 
theorems or strict rules to guide one in the development. 
The actual steps followed by the model builder are very 
situation dependent. However, there are some basic techni- 
ques which are commcnly followed by experienced modellers 
and provide a framework for good model development. 

The approach begins with a simple model and attempts to 
evolve into a more elaborate model which more closely resem- 
bles the actual situation being modelled. As the model 
achieves the simplified goals, new problems may be identi- 
fied cr greater realism may be desired which would lead to 
revisions and additions. Thus, the evoution of a model 
never really stops until it has outlived its usefulness. 

Based on the definition of simulation in chapter one, a 
simulation: (1) is concerned with the operation of systems; 

(2) is concerned with the solution of real worL d problems; 
and (3) is performed as a service for those interested in 
its behavior. From these characteristics the criteria for a 
good simulation are: 

1. Simple to understand by the user 

2. Gcal or purpose directed 

3. Robust, i.e., it does not give absurd i nswers when 
minor changes in parameters are made 

4. Easy for the user to control and manipulate 

5. Complete on important issues 

6. Adaptive, with an easy procedure for modification or 
update 

7. Evolutionary - start simple and become more complex 
in conjunction with the user's requirements [Ref. 3: 
P-22 ] 
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With the above criteri 
p.24] illustrates a general 
model. Note the flows whic 
diagram. Those indicate 
design. The following di 
step. However, keep in 
process. 

The most critical step 
a system is to define the 
stated that proper formulat 
tant than its solution [Re 
important functions of a 
problem, often vaguely sta 
precise and operational ter 
begins with specification 
the estab lishment of boun 
diagram which neither over 
detail is the next step i 
should construct the mod 
answered rather than imi 



[Ref 



the 

less 

purs 

regu 

the 

abou 

Avai 

in a 

of t 

iden 

whic 

subs 



. 3: p. 27 ] 

At this point a decisio 
optimal technique for s 
complicated, more dire 
ued in the name cf effi 
Once the decision to u 
irements must be analyz 
input and output of th 
t the various component 
libilty of input data f 
ddition to historical o 
he model. In conjunct 
tification of major va 
h immediately precee 
ystems. 



a in mind. Figure 2.1 [Ref. 3: 
design process for a simulation 
h return to earlier stages on the 
the iterative procsss of the 
scussion will elaborate on each 
mind the general nature of the 

in the development of a model of 
problem. Albert Einstein once 
ion of a problem was more impor- 
f. 3: p.25]. One d f the most 

n analyst is to translate the 
ted by the decision n aker, into 
ms [Ref. 4: p.51]. The analysis 
of the goals and objectives and 
daries of the model. A flow 

simplifies nor carries too much 
n the problem formulation. Cne 
el around the questions to be 
tate the real system exactly. 

n must made whether simulation is 
olving the stated problem. If a 
ct technique exists, it should be 
ciency and cost. 

se simulation is mada , the data 
ed. This includes data regarding 
e system as well as information 
s of the system [Ref- 3: p.27]. 

or the system must be determined 
utput data for use ii validation 
ion with the data analysis is the 
riables to be used in the system 
d the formulation of model 
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SIMULATION DESIGN PPOCESS 




Figure 2.1 General Design Process for a Simulation Model. 

1 8 



large problems should be segmented into subsy stems which 
are as independent of each other as possible. This facil- 
tates a logical development and makes validatioi much less 
complicated. Without the submodels the entire simulation 
model would have to be formulated and validated at once - a 
formidible task. The decision maker should take part in 
this phase of development to further his knowledge of the 
model and the results and to keep the builder from straying 
from the purpose of the model. [Ref. 4: p.55] 

After combining the subsystems into the simulation, the 
data and parameters identified ealier should be gathered to 
ensure they fit into the model. If necessary some subsys- 
tems may have to be adjusted to accomodate the data and 
parameters. The next stage involves choosing an appropriate 
computer language with the following considerations: 

1. Efficiency of computer translation and running speed 

2. The difficulty of translating the description of the 
subsystems into the computer language 

3. The output desired from the simulation and ease of 
obtaining the output 

4. The limitations of the computer hardware to use the 
language 

Model translation, coding and debugging the model 
follow. The advantage to using submodels bo comes very 
evident during the debug phase. The more independent the 
submodels are the easier it will be to debug on a component, 
basis . 

An important step in the design process is the valida- 
tion of the simulation model. Validation is th= process of 
bringing to an acceptable level the user's cofidence on how 
well the real system is being modelled. It is impossible to 
prove that any model is a "true" depiction of a real system, 
although a careful and thorough evaluation can build confi- 
dence in the simulation. [Ref. 3: p.29] This area is very 
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deficient in simulation m 
tests are questionable or n 
being made to require prope 
There are three tests 
model. First, results th 
reasonable based on exper 
assumptions made about the 
input-output transf ormatio 
method of validating the ou 
ical data collected under 
are close, the model can b 
the real system. The ulti 
well the model predicts th 
the analysis it was designe 
The amount and type of 
analysis depend on the main 
this stage, the model is r 
parameters in a systematic 
Often it is at this point w 
ring become more evident r 
some steps in the design pr 
the validity of input param 
or poorly conducted sensiti 
The final two elements 
included in any simulation 
to refining the model, tr 
model to changing conditio 
found are valid. [Eef. 
extremely valuable for fac 
basic understanding of the 
result of poor documentatio 
which investigated many of 
or modifying models. Even 
taion are tedious and diffi 



odels found in DOD. Empirical 
on-existent, and few efforts are 
r validation. [Ref. H : p.189] 
that may be used to validate a 
at are produced must appear to be 
ience. Second is to test any 
system and third is to test the 
ns. [Ref. 3: p.29] A common 

tput is to compare it to histcr- 
similar conditions. If the two 
e accepted as a repres entaticn of 
mate validation, however, is how 
e future or how well it performs 
d to perform. [Ref. 4: p.57] 
experimentation and sensitivity 
purpose of the simulation. At 
un using various sets of data and 
manner to observe the response, 
hen flaws and oversights in plan- 
eguiring the builder to retrace 
o cess. Deficiences ii estimating 
eters is a result of insufficient 
vity analysis. [Ref. 1: p . 1 89 3 
in the design process must be 
project. Implementation refers 
aining the user, adjusting the 
ns and ensuring that the results 
3: p.33] Good documentation is 

ilitating changes anl gaining a 
model. Resources are wasted as a 
n. This was noted by GAO reports 
the problems found with operating 
though implementaion and documen- 
cult, when done properly they can 
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extend the life of a model. .lore importantly, they facili- 
tate the use of simulation which is particularly crucial in 
an environment heavily oriented toward the need of users. 

[Bef . 1: p. 191 ] 

In the chapters which follow, the procedure outlined 
above will be modified slightly to fit the conditons under 
which the actual model development took place. Each phase 
of the design process will be made apparent during the pres- 
entation as well as any deviations from those steps as 
explained above. 
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IHE SYSTEM 



An amphibious operation 
sea by naval and landing f 
involving a landing on a ho 
of amphibious operation is 
distiguished from other ty 
lishirg a force on a hostil 
follows a sequence of activ 
embarkation, rehearsal, 
finally, assault and capt 
P-1-3] 

The ship-to- shore move 
phase which pertains to the 
equipment from assault sh 
ashore on the landing area 
ensure the landing of troop 
the prescribed times and 
support the scheme of maneu 
movement can be accomplishe 
copters, or by a combinatio 

The sh ip- 1 o- shore movem 
the assault phase. The coo 
diversified naval and troop 
of very detailed planning, 
and helicopter availabilit 
copter employment, assau 
serial assignments (a ser 
element of the landing fore 
a few of the areas to be p 
landing. [Ref. 5: p.11-7] 



is an attack launched from the 
orces embarked in ships or craft 
stile shore. The principle type 
the amphibious assault which is 
pes in that it involves estab- 
e shore. The amphibious assault 
ities which consist of planning, 
movement to the objective, and 
ure of the objective. [Ref. 5: 

ment is tne part of the assault 
timely deployment of troops and 
ipping to designated positions 
. This movement is designed to 
s, equipment , and supplies at 
places in such a manner as to 
ver for operations ashore. The 
d by waterborne means, by heli- 
n of the two. [Ref. 6: p.45] 
ent is the most critical part of 
rdination and control of the many 
elements requires a high degree 
Such items as the li nding craft 
y, amphibious vehicle and heli- 
lt schedule, landing sequence, 
iai is a number assigned tc an 
e) , and wave assignments are just 
lanned prior to execution cf the 
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The shijp-to- shore movement is further divided into two 
periods, initial unloading and general unloading. The 
initial unloading period is primarily tactical in nature and 
therefore must be responsive to the landing force reguire- 
ments ashore. A tactical situation is where the troops and 
equipment going ashore are prepared to fight. They are 
organized in' combat units and execute a set plan for the 
purpose cf forcibly taking the beach and landing zones. It 
is during this period that the landing force is establishing 
a foothold ashore and the unloading of units is very selec- 
tive. The general unloading period is logistical in nature 
and involves the timely delivery of needed supplies and 
equipment. During this time period, the majority of combat 
troops are established ashore and are involved with the 
execution of the operational plan of attack. A beachhead 
exists and is considered a more secure rear area where 
supplies and equipment continue to arrive in support of the 
combat tioops at the front. 

There are several descriptive categories of waves 1 
involved in the movement of forces and equipment ashore 



according to the 


landing p 


lan. These 


cate 


gories act 


ually 


divide the entire 


landing 


force and 


their 


equipment 


into 


major groups to 


provide 


flexibility. 
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control of the landing. 


Three of 


these 


categories 


are 



concerned with troops and their initial combat supplies. 
These are scheduled, cn-call, and nonscheduled waves. 

Two ether categories of waves are are concerned with 
unloading of supplies. These are called floating dumps and 
landing force supplies which only apply to the water-borne 



X A wave consists of a number of landing craft or heli- 
copters which are to be landed simultaneously. The size of 
a wave is limited by beach or landing zone capacity and the 
availibility of vehicles. Tactical unit integrity is para- 
mount when constructing a wave. 
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means of delivery. They are not involved witi the actual 
initial combat landing. 

The water-borne movement is broken down into all five 
categories. These include: 

1 . Sche dul ed waves — Scheduled waves are formations 
which consist of landing ships, landing craft, or 
amphibious vehicles which contain troops, equipment , 
and supplies tc be landed at a predetermii ed time an-d 
place. Their landing begins at H-hour and continues 
fcr a relatively short period of time. 

2. On-c all waves — On-call waves include lai ding ships, 
amphibious vehicles, or landing craft containing 
troops, equipment, and supplies for which an early 
need ashore is anticipated, but for which the time or 
place cannot be accuately predicted. Tie commander 
will call for these waves at the desired time and 
place depending on the situation ashore. 

3. N onsched uled units — Nonscheduled units are those 
landing force elements and supplies held In readiness 
during the initial unloading, but not included in 
scheduled or cn-call waves. The probable sequence of 
landing nonscheduled units is determined 1 uring plan- 
ning, however, the landing of these units is directed 
from shore when the situation dictates. 

4 . F lo a tin g dump s — Floating dumps are emergency 
supplies preleaded in landing craft, amphibious vehi- 
cles, or in landing ships. 

5. Land ing for ce supp lies — Landing force supplies are 
those supplies remaining on assault shipping after 
initial combat supplies and floating dumps have been 
unloaded. 

As the amphibious force moves into the objective area 
the different types cf ships move into various sea areas. 
Sea areas are used tc minimize possible interfers nee between 
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various components of the amphibious task fores and other 
supporting forces. Figure 3.1 [Ref. 5] shows these areas. 




Figure 3.1 Amphibious Task Force Areas. 

Some definitions of the various sea areas follow. The 
10D (line of departure) is a designated line off-shore 
approximately parallel to the beach. From this line, 
successive hoat waves are dispatched for their final move- 
ment to the beach. The waves travel in boat lanes which 
extend seaward from the beach to the LOD and ace the same 
width as the beach. Approach lanes are extensions of the 
boat lanes from the 10D to the transport area. 

Landing ships are initially staged in the outer landing 
area and when instructed, move to the amphibioi s launching 
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area. This is located seaward of the LOD and parallel to 
the teach. Landing ships move in this area pan llel to the 
LOD at atout 15 knots and discharge the amphibious vehicles 
which make up the initial assault waves, (see Figure 3.1 ) 

Transports move from the outer transport area, where 
they were initially staged, into the inner trai sport area. 
This area is as close to the teach as the hydrography 2 and 
enemy situation will permit since boat operations must be 
conducted at a very slow speed or at a dead stop. Landing 
craft are loaded and launched from this area and proceed to 
the LCD via approach lanes, (see Figure 3. 1 ) 

All amphibious vehicles and landing craft nove to the 
10D at times designated by the landing plan. Movement from 
the LCD is controlled by various control officers located 
along the way and waves move according to their category 
(scheduled, on-call, nonscheduled) at appropriate times. 
Those times have been computed based on the number of vehi- 
cles the teach can accomodate, speed of the vehicles, scheme 
of maneuver, etc. If the wave is comprised of amphibious 
vehicles there is no turnaround, which means that those 
vehicles proceed inland and do not return to the ship. If 
the wave is made up cf boats, after unloading they return to 
the transport areas for subsequent loads. Figare 3.2 is a 
diagram cf the process. 

The helicopter movement is broken down into three 
groups. This movement is normally completed during the 
initial unloading period when tactical 3 considerations are 
the dominant factors. Once the helicopter-borne movement is 
completed, transport helicopters are employed for tactical 



2 Hydrography is the description of the physical condi- 
tions of a body of such as the depth, type of bottom (sandy, 
rocky), currents, etc. 

. 3 Tactical refers to a high state of combat readiness 
maintained while executing a combat plan. The assumption is 
made that there will be contact with enemy forces. 



26 



L C A C s r p t u r n to shir 




Figure 3.2 Boat Landing Process. 

and logistical requirements as needed by the landing force. 

Categories for the air movement include: 

1. Sche dul ed waves — This category consists of those 
assault elements of the landing force, together with 
their initial combat supplies, which will be landed 
by helicopter. Times, places, and formations for 
landing have been determined. Scheduled landing 
begins at a specified time and continues until all 
elements in this category are landed. 

2. On- c all waves — This category consists of those heli- 
ccpterborne units with their initial combit supplies, 
or emergency supplies, whose need ashore at an early 
hour is anticipated, but whose time and place of 
landing cannot be accurately predicted. On-call waves 
may interrupt other landing categories based on the 
urgency of the requirement. On-call elements are 
held in readiness aboard shipping and are landed when 
called by the appropriate level commander. 
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3. Ncns che duled units — Nonscheduled units consist of 
any remaining units of the landing force and their 
initial combat supplies which have not been included 
in either the scheduled or on-call categories. This 
category can be interrupted or temporarily suspended 
because of unforeseen circumstances in the situation 
ashore. 

The shipping carrying the helicopters initially moves to 
the helicopter transport area which is generally seaward of 
the outer transport area. (see Figure 3.1 ) From this area, 
helicopters comprising the first assault waves are readied 
and spotted on the flight decks. On signal, troops enplane, 
and helicopters are launched. Flights of helicopters 
rendezvous about their parent ship and then proceed as 
predetermined waves. They travel via designated helicopter 
lanes and control points enroute to the landing zone. 
Figure 3.3 [Ref. 7: p. 143 ] is a diagram of this process. 
The helicopter waves pick up attack helicopter protection 
that provides ground fire suppression. The waves land, are 
unloaded, and return to the ships to refuel and enplane 
subsequent troop serials. * A schematic of this process is 
found in Figure 3.4 [Eef. 7: p.121]. 

ICAC (landing craft air cushion) would launch from 
greater distances than boats because of their speed. They 
would operate much like helicopters in that they can travel 
inland to off load troops and equipment instead of stopping 
at the beach. They would also be able to return to shipping 
for subsequent loads. 



A A serial is a designator (number) given :o a combat 
unit or a .piece of equipment for the purpose of assignment 
to a carrier going to shore. This provides control and 
organization during the landing phase of the operation. A 
wave is made up of many serials. 
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ENCLOSURE 2 (Helicopter Landing Diagram) to Tab D (Vertical Assault Plan) 
to Appendix 5 (Landing Force Landing Plan) to Annex R (Amphibious Operations) 
to IV MAF OPLAN 9999 (U) 




Figure 3.3 Helo Flight Lanes. 
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IV. THE MODEL 



The ship-to-shore model attempts to simulate the process 
described in chapter 3 of this paper. Prepari tion of the 
model for use involves construction of the serials and 
assault laves which is done manually as they would fce prior 
to an operation. This process is the basis for the largest 
of three data files used in the simulation. Unfortunately, 
construction of the serials and waves is a very time 
consuming process and has not teen automated at this time. 

Two ether data sources are needed to run the model. One 
file contains parameter values which are not subject to 
change. A helicopter time factors table whic h provides 
expected times for various evolutions such as loading or 
unloading is an example of the type of data found in this 
file. The last source of data is found within the program 

itself as either a line of code or as an interactive query. 

This data is of the type that may be changed easily for 
various types of analysis. 

The model utilizes 35 subroutines to attempt to trans- 
late reality into mathematical computations. A diagram of 
the model in very general terms is found in Figure 4.1 The 

first subroutine in the program reads the data from the wave 

and serial file and the parameter file. Also the variable 
data is entered within the first section of the program. 
The second subroutine initializes the arrays and clocks to 
be used by the timing and activity subroutines based on the 
information found the wave data file. These subroutines 
essentially complete the set-up and initialization of the 
model . 
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Figure 4. 1 Flow Chart of the Model. 

3 1 




Cnee the model enters the EXEC subroutine L t continues 
the time/event 5 procedure until all waves have been landed. 
The EXEC subroutine is the control routine in which all 
waves eventually pass. Based on the class of tae wave (air 
cr surface) and the current activity (load, launch, unload, 
return, cr arrive back ship), the EXEC subroutine will send 
the wave in guestion to the proper subroutine for 
manipulation. 

Prior to going to one of the activity subroutines, the 
program gueries whether certain flags have been set. If 
they have teen set, cne of the following routines could be 
called. Five are fer helicopter waves and four are for 
surface waves. They are: 

• R ESTA RT (help) / BEST A RT (surface) : Restart timing for 

waves that have teen stalled by the lack of deck spots 
(helo or surface). Since in reality there are not 
enough deck spots to accomodate all of the assault 
helicopters (landing craft), subseguent waves must wait 
for sufficient spots to load. 

• STOCH (helo) / STCCL (s urf ace) : Tnese subroutines start 

the on-call waves to load after the final scheduled 
wave has begun tc load. 

• JA1TSH (helo) / HAL T S! ( surf) : Stall remaining scheduled 

waves when one or more on-call waves interrupt the 
scheduled category. As in reality, oii-caL 1 waves can 
break in when called for. The model allows flags to be 
set to simulate this process. 

• STSH(helo) / STSI (surf ace) ; Start schedule! waves that 
have been stalled due to on-call waves intec rupting the 
seguence. More than one on-call wave can interrupt at 



s Time/event refers to the computation of time required 
to complete a certain event such as loading a helicopter. 
That time is added tc a continuous running clock to deter- 
mine the tine at which that event will take place. 
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different times so the HAIT5H (L) /STSL (L) subroutines 
can be called more than once. 

• ijCKID(helo) : Reevaluates deck spot employn ent if the 

current wave does not occupy all spots available. It 
calls WSPOT which calculates the number of spots to be 
used ir. the current wave. 

One last subroutine will be called prior to the activity 
subroutines. This is the MSCRT routine which acts as the 
master sort routine. It takes the lowest time from six 

other time/event sort routines and that becomes the next 
event which is processed by the appropriate activity 
subroutine. 

There are three time sort routines common to the heli- 
copter activities and three time sort routines common tc the 
surface activities. They all sort through the waves identi- 
fying the wave with the earliest time for the next event. 
That wave is placed cn the top of the queue from which MSORT 
then picks the lowest time out of the six time sort 
routines. listed below are the sort subroutines: 

• H SSCR T : Scheduled helicopter wave sort routine. 

• HCSCRT: On-call helicopter wave sort routine. 

• Jli§CF.T : Nonscheduled helicopter wave sort routine. 

• 1SS CRT : Scheduled surface wave sort routine. 

• I£SCR T : On-call surface wave sort routine. 

• INSCRT : Nonscheduled surface wave sort routine. 

The activity subroutines process each wave based on its 
class, activity code, and category (scheduled, on-call, or 
nonscheduled). There are five major activity subroutines 
for each class (air or surface) . Each activity subroutine 
calls other secondary routines and the appropriate time sort 
routine as determined by the wave category. Once the wave 
has completed an activity subroutine, it returns to the EXEC 
subroutine and the cycle begins again. Thus, ear h wave will 
eventually cycle through five subroutines. 
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The following is a summary of the activity subroutine 
and their supporting routines: 

• £S1C: The purpose is tc load (or attempt to load) a 

helicopter wave from available flight deck spots of the 
shipping. Loading will not be initiated if (a) no deck 
spots are currently available or if (b) insufficient 
helicopters of the proper type to carry the serials are 
present at the time. HELD calls the appropriate time 
sort routine (HSSORT, HCSORT, or HNSORT) and subroutine 
SPOTS. The SECTS routine identifies whether all the 
deck spots a,re curently being employed for loading. A 
flag is set to indicate whetner deck spots are avail- 
able cr not. 

• HLNCH: This routine launches a helicopter wave from 

ships and determines the time it will arrive at the 
landing zone(s). It determines the numD er of deck 
spots made available to subsequent waves and restores 
those spots. Also it reevaluates the loading time for 
a wave being leaded which had employed all of the 
remaining deck spots. HLNCH calls the appropriate time 
sort routine (HSSORT, HCSORT, or HNSORT) and HLCDCK and 
RESTART. HLODCK sets up signals that will initiate a 
reevaluation of the deck spot employment in the event 
that the current wave was not employing the last avail- 
able deck spot. Those signals will trigger the use of 
HC KID which is called from EXEC. If the current wave 
was occupying the remaining deck spots, a flag is set 
to call RESTART from EXEC. RESTART allows subsequent 
waves to employ deck spots which will be vacated by the 
current wave. 

• HONLD: HUNLD determines whether or not landing zones 

are still occupied by previous waves and if so delays 
the landing of the current wave until the pertinent 
zones are free tc use. Also it calculates the length 



34 



of time necessary for this wave to unload (constrained 
by the size of the landing zone). HUNLD calls the 
appropriate time sort routine (HSSOET, HCSOET, or 
HNSCRT) . 

• HEIN: The purpose is to print a running t otal of the 

personnel ashore and the firepower ashore. Also HRTN 
calculates the time that the wave will return to the 
area of the shipping and hence be available for forma- 
tion of subsequent waves. It calls the appropriate 
time sort routine (HSSOET, HCSOET, or HNSORT ) . 

• ME 11 '• HARIV returns helicopters to the helicopter 

pools for use in forming subsequent waves after 
degrading the number of helicopters to reflect mainte- 
nance losses. It also initiates the loading process 
for subsequent waves. HARIV calls the appropriate time 
sort routine (HSSOET, HCSOET, or HNSOET) . 

The surface activity subroutines operate in basically 
the same manner (the first letter for surface activities is 
E instead of H) . Since the following routines are so 
similar to the helicopter routines, only the differences 
will be pointed out. 

• ER IE: The purpose is to load the landing craft in a 

similar fashion to the HELD for helicopters. It calls 
the appropriate time sort routines (LSSORT, LCSORT, or 
INSCET) and the subroutine WELDEK. KELDEK calculates 
the well decks to be used by landing craft of each wave 
and indicates whether there are sufficient openings or 
not. 

• BENCH : This routine launches the surface vat es from the 
ships. It calls the appropriate time sort routine 
(ISSOET, LCSORT, or LN SORT) . 

• EUN1D : BUNLD determines if the beach is open for 

landing and off-loads the wave if it is possible. It 
calls the appropriate time sort routia e (LSSORT, 
LCSORT, or LNSOET) . 
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• EETN: ERTN prints the running total of personnel ashore 

and the firepower ashore. Also, it returns the toats 

to the ships. It calls the appropriate time sort 

routine (LSSORT, LCSORT, or LMSORT) . 

• B^RIV: This routine returns the boats to the boat pools 
for subsequent use. It calls the appropriate time sort 
subroutine (LSSCET, LCSORT, or LNSORT) . 

Cnee each wave has cycled through the five helicopter 
activities or the five surface activities, they are assigned 
a very large value in their time array. This prevents them 
from recycling. The program will end when the last nonsche- 
duled surface wave has gone through all activities. At that 
point, all personnel in the wave data file will be ashore. 
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V. v A LI DA TIO N AND VERIFICAT ION 



A. GENEBAI 

The purpose of validation 6 of a model is to bring to an 
acceptable level the user’s confidence on how W 2 11 the real 
system is being modelled [Ref. 3: p.29]. A common method 

and perhaps the best is to compare the results nr the model 
with historical data. However, after some research it was 
discovered that there is a lack of historical data 
concerning actual s hip- to- shore operations in the Marine 
Corps. Although there is data collected for reports which 
are required after training exercises, none of the pertinant 
information is retained after the reports have been 
compiled . 

The next best method available to verify this model was 
to compare the results to another sophisticated simulation 
designed and refined to run on a large main frame computer. 
Several such models exist and the results utilized in this 
thesis are found in a study which employed one of those 
models [ Ref . 9 ]. 

This section will be divided into two major subsections 
for the purposes of organization. The first will be 
concerned with verification and will cover an initial phase 
using a simplified test data set and the second phase will 
use mere complicated input data. The second major subsec- 
tion will involve sensitivity analysis of the model. 



6 Although there are many authors who distinguish between 
"verification" and "validation" of a model, there is no 
consistent use of the terms in the literature. Therefore, 



the terms will be used interchangeably 
have the same meaning [Ref. 8: p.631]. 
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B 



VALIDATION 



1* Ini tia l Phase: Simp l if ie d Inp ut File 



The initial phase 
designed to ensure the mod 
simplified case which can 
landing plan will net te 
program. However, the ma 
demonstrate that the hasic 
The input data fo 
located in Table I . As on 
reduced to essential infor 
remains unchanged and the 
parameters necessary to run 
acronyms will appear in th 
contains a glossary of 
encountered. 

Using the data in t 
XVIII), hand calculations 
that each wave would land a 
the wave was loaded cn the 
being unloaded was compute 
the results of the model an 
It is obvious by 
simple run that the model i 
mode. To attempt to verif 
calculations would be lud 
alluded to in the introduct 
with historical data, wou 
large landing plan. Howe 
historical data, another m 
employed . 



of the verification analysis is 
el is operating correctly for a 
be computed by hand. A simple 
st all the routines within the 
jor routines will be exercised to 
logic is working. 

r the model for this phase is 
e can observe the landing plan is 
mation only. Data file T-1.DAT 
interactive input provides the 
this test. At this point many 
e text and tables. Appendix A 
those acronyms that will be 

he Helo Time Factors Table {Table 
were made to determine the time 
nd unload in the LZ from the time 
ship. Also the number of troops 
d at this time. Table II gives 
d those of the hand calculations. 

the results of this extremely 
s at least functioning in a basic 
y a complex landing plan .by hand 
icrous. Therefore the method 
ion of this chapter, comparison 
Id be the best way t o verify a 
ver, since there is a lack of 
ore sophisticated simulation was 



38 



r 


TABLE 


I 




1 


Input Parameters for 


Simpli 


fied Test 




Landing Plan Te st 










Wave/Serial # 


Pers 


Carrier 

Type 


Number 

Carriers 


Pest 


Sched helo #1/#1 


1 0 


CH-46 


2 


R— 1 


Sched helo #1/#2 


1 0 


CH-46 


2 


R-1 


Sched helo #2/#1 


1 0 


CH-46 


2 


R- 1 


Sched helo #2/#1 


1 0 


CH-4 6 


2 


R- 1 


Sched surf # 1 /# 1 


1 0 


LCM-8 


2 


G- 1 


On-call helo #1/#1 


1 0 


CH-46 


2 


R-1 


On-call surf #1/# 1 


1 0 


LCM-8 


2 


G- 1 


Ncnsched helo #1/f1 


1 0 


CH-46 


2 


R-1 


Nonsched surf #1/#1 


1 0 


LCM-8 


2 


G-1 


Input parameters 






V alues 




Operational deck spots 




60 




Helicopter Launch distance 




10 NM 




Shore to landing zcne 


di stance 


2 NM 




Boat launch distance 






8 NM 




Landing zone size 






Unlimitel 




Beach size 






Unlimited 




Number of carriers 










Helcs 






12 




Eoats 






4 




Boat launch hour 






0 




Helo launch hour 






0 
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TABLE II 



Results of 


Simplified 


Data 


Set Run 






Time of unload 
on LZ/beach 


# p; rscnnel 
ashore 


Eave 


Mo del 


Hand 


Mod; 1 


Hand 


Sched helo #1 


21 


21 


(N 


20 


Sched helo #2 


27 


27 


40 


40 


Cn-call helo #1 


29 


29 


53 


50 


Nonsched helo #1 


38 


38 


60 


60 


Cn-call surf #1 


55 


55 


70 


70 


Ronsched surf #1 


55 


55 


80 


80 



2. fhase Two: Co mpari s on to large Scale Simulation 

A computerized amphibious assault model (CAAM) was 
used in the study in [Ref. 9]. CAAH utilized a computer 
language called GPSS (General Purpose Simulati. on System) 
which is designed specifically to run simulations. Since 
the study was mainly concerned with the air portion of the 
amphibious landing, all of the results deal with 
heliccpoter-borne assaults only. This is not a problem 
since SHIPSHOR has the ability to run in an all helicopter 
mode, all surface mode, or a combination of the two. Thus, 
for the purposes of the validation, only the helicopter 
operation of SHIPSHOR will be utilized. Although this is 
not considered an ideal situation, the results from ether 
simulation models were not available. 

Several sets of results were contained in the 
Amphibious lift Factors Study. Four of these will be used 
to make the comparisons. An attempt was made to duplicate 
the CAAH inputs in order to reach some viable conclusions 
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about the comparisons. Duplication was not possible in all 
cases. However, the input parameters that were used by 
SHIPSHOE came very close to those used in CAAi-1. 

A case base was used as a standard for comparison. 
It consisted of a set of input parameters whici produced a 
profile cf the progress of the landing. The base case was 
then compared to other situations to obsevre the effect on 
the landing profile. Table III contains the base case. 



TABLE III 

Base Case for CAAM and SHIPSHOE Comparisons 


Kumber 

Launch Dist CH-46 


cf Helicopters 
CH-53D CH-53E 


Attrition 


50 N M 156 


80 32 


0 


Speed (type load) 
Internal External 


Operatonal 
Deck Spots 


Nun ber of 
L Zl§ 


120 kts 100 kts 


114 


3 


Beach to LZ 
Distance 


Size of Landing 
Zone 


5 N M 


Infinite 


1 



The following section will present 
involving different input parameters for 
SHIPSHOE. The parameters will be listed 
graphic presentation cf each case. 
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four situations 
both CAAM and 
followed by the 
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a. CAAM vs SHIPSHOR: General Comparison 
NuiiSI of H eli copters 



1 . 
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2. 


1.5 


Wing : 
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CH-46 , 


64 
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32 
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1.0 


Wing: 


72 
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48 
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16 


CH-53E 



NUMBER OF HELICOPTERS: CAAM 




Figure 5. 1 



Number of Helicopters: CAAH 
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NUMBER OF HELICOPTERS 




Figure 5. 2 



Number of Helicopters: 



SHIPSHOB. 
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PERSONNEL 

3000 4000 5000 6000 



Helicopter lau n ch Di s tance 



1 . 


Base case: 




50 


N M 


2. 


Alternate case 


#1: 


35 


N M 


3. 


Alternate case 


#2: 


1 5 


NM 



HELICOPTERS LAUNCH OISTANCE: CAAM 




Figure 5.3 Helicopter Launch Distance: CAAM. 
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HELICOPTER LAUNCH DISTANCE 




Figare 5.4 



Helicopter launch Distance: SHIPSHOB. 
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PERSONNEL 

3000 4000 5000 6000 



Operational Deck Spots 



1. 


Base case: 




1 14 


oper ati onal 


deck 


sp ots 
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Alternate case 


#1 : 


1 76 


operational 


deck 


spots 


3. 
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OPERATIONAL DECK SPOTS: CAAM 




Figure 5-5 Operational Deck Spots: CAAM. 
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PERSONNEL 
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OPERATIONAL DECK SPOTS 




Figure 5.6 



Operational Deck Spots: 



SHIPSHOR. 
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PERSONNEL 

2000 3000 4000 . 5000 6000 



Mix of Launch Distances and Humbe r of Helos 

1. Base case: 50 HM and 156 CH-46, 80 CH-53D, 32 CH-53E 

2. Alternate case #1: 35 NM and 

108 CH-46, 64 CH-53D, 3 2 CH-53E 

3. Alternate case #2: 15 NM and 

72 CH-46, 48 CH-53D, 15 CH-53E 



MIX OF LAUNCH DISTANCES AND NUMBER OF HELOS: CAAM 




Figure 5.7 Hix of Launch Distances and # Helos: CAAM. 
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MIX OF LAUNCH DISTANCES AND NUMBER OF HELOS 




Figure 5.8 Mix of launch Distances and # Helos: SHIPSHOR. 

Although not exactly alike, CAAM and SHIPSHOR 
tend to exhibit similar behavior when changing parameters as 
shown within each graph above. Additionally, comparison 
between CAAM and SHIPSHOR under like conditions lemonstrates 
that the models are producing similar landing profiles. The 
next section will depict the similarities and differences 
through direct comparison. 



PERCENT PERSONNEL 

0.4 0.6 



t. CAAM vs SHIPSHOR: Direct Comparison 



The next set of graphs shows a direct comparison 
of CAAM and SHIPSHOR for the parameters used above. A ten 
percent confidence interval around the CAAM profile provides 
a means cf judging the performance of SHIPSHOR. 



1 



BASE CASE: CAAM VS SHIPSHOR 




TIME (MIN) 



Figure 5. 9 Base Case. 
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PERCENT PERSONNEL PERCENT PERSONNEL 



1.5 WING: CAAM VS SHIPSHOR 



o 




1.0 WING: CAAM VS SHIPSHOR 




TIME (MIN) 



Figure 5.10 1-5 Bing and 1.0 Bing. 
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15 NM LAUNCH DISTANCE: CAAM VS SHIPSHOR 




35 nm Launch distance: caam vs shipshor 




Figure 5.11 15 HH launch Distance and 35 NM Lamnch Distance 
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PERCENT PERSONNEL PERCENT PERSONNEL 



57 OP DECK SPOTS: CAAM VS SHIPSHOR 




176 OP DECK SPOTS: CAAM VS SHIPSHOR 




Figure 5.12 57 and 176 Operational Deck Spots. 
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PERCENT PERSONNEL PERCENT PERSONNEL 



15 NM/1.0 WING: CMM VS SHIPSHOR 




55 NM/1.5 WINC: CAAM VS SHIPSHOR 




Figure 5.13 15 NH/1.0 Sing and 35 NM/1.0 Sing D istance/Numbec Mix. 
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The SHIPSHOR model, as exhibited ab3 ve, tracks 
between the confidence limits for the most part. The 
biggest discre pencies between the two models is found in the 
first 30 or 40 minutes of the landing. CAAM displays a 
rapid, almost instantaneous, build-up where SHIPSHOR is more 
gradual. This may be explained by the manner in which 
SHIPSHOE increments the initial waves at one minute apart. 
Eependirg on deck spot and helicopter availibility , addi- 
tional time delays may be encountered. Thus, tie resulting 
build-up ashore is slower. 

At this point one can conclude tiat the two 
models, for the particular data used, produce similar 
results. However, as discussed earlier in this thesis, one 
can net conclude that SHIPSHOE is a fully validated model. 
That won't happen until the model is in use and has been 
modified to reflect data from actual operations. There are 
many possible ways to disclaim the validity of this model. 
Although CAAM was used in a study that was published, there 
is nothing that guarentees the validity of CAAM. What 
should be recognized by the above analysis is that the 
confidence level in SHIPSHOE has been raised to that of 
CAAM. Since the authors of the study based tieir conclu- 
sions on the output of CAAM, there is no reason at this 
point to discount the output of SHIPSHOR. 



C. SENSITIVITY ANALYSIS 
1 . Gen era l 

The purpose of sensitivity analysis is t o determine 
the sensitivity of our results to the values of the parame- 
ters used. It normally consists of a systematic varying of 
the parameters of interest and observing the response of the 
model. If the responses of interest vary greatly with 
slight variations or vary in a manner not expected by 
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experience, then there may exist justification Cor expendi- 
ture cf more time to obtain better results. [Ref. 3] 

The approach cf this thesis to sensitivity analysis 
is twcfcld, graphical and numerical. A graphical presenta- 
tion of the landing profile with different parameters gives 
an overall picture cf the effect of changing input values. 
Ihe numerical analysis involves the selection of an MOE 
(measure of effectiveness) . The changes obser? ed in that 
MOE with a change in a particular value of input give a 
numerical feel for the sensitivty. 

There are a myriad of MOE's for an amphioious opera- 
tion. They depend on the desires of the commander, plarner, 
or in this case, the user of the model. The commander may 
want to know the number of troops ashore at a given time in 
the operation. The planner may want to know the total time 
required to get a certain number of troops ashore. 

for the purposes of this thesis the MOE will be the 
number of personnel ashore at three hours into the opera- 
tion. The first several hours of a landing ars most crit- 
ical and from the author's experience would be cf concern 
to a commander of the operation. The choice of a different 
MOE would produce different sensitivity relations in the 
results. Under one MOE a comparison of two sets of input 
parameters may be greater than under a different MOE since 
the profile of the landing is a step function. 

The pictoral repres ntati on will be cutof: at the 200 
minute point to enable observation of the first three hours 
in the landing. The numerical method will introduce a term 
used for comparison purposes. It will take the form of: 

Change in MOE 

Sensitivity Index = 

Change in input parameter 
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Sensitivity Index 



Change in # personnel ashore at 3 hrs. 



Change in input parameter 



The method of presentation will show a set of curves 
reflectirg the change of a single parameter from a tase set 
of parameters. Then a table will follow with the numerical 
values of the sensitivity index. 

Since there is a large number of parameters, there 
is an even greater number of combinations of parameters 
producing different sets cf results. Therefore the 

following analysis will present only a small subset of all 
possible combinations. 

2 . Gra phi cs and h umer i cs 

The base case for the sensitivity anaL ysis which 
follows is contained in Table IV . The subsequent situ- 
ations list only the parameters of interest, then the graph 
of the different cases, followed by the numerics. 
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TABLE IV 

Input Data for the Base Case 



Helo 




Number of 


Helicopters 






launch Cist 


CH-46 


C Hz 5 3D CH^53E 


Att 


ration 


10 N M 




130 


63 27 




. 8 






Number 


of boats 






IVT LC M- 6 


LCM;8 


LCU LST 


•j 


.ARC 


249 


52 


42 


28 0 




12 


Speed (type 1 


oa d) 


Operatonal 


Nub 


ber of 


Internal 


Exte 


rn al 


Deck Spots 




LZJ.S 


120 kts 


100 


kt s 


100 




2 


Eeach to 


LZ 


Size 


of Landing 


IVT 


Launch 


Distance 


> 




Zone 


dis 


ta nee 


5 N M 




4 


8 helos 


5 


NM 



Number of beaches Bea^ch Size 

one 6 LVTs 
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PERSONNEL 

2000 4000 6000 8000 



Heliccptjr lime Factors 



1. Base case: Helicopter time factors table 

2. Alternate #1: Load time 6 minutes 

3. Alternate #2: load time 10 minutes 

4. Alternate #3: load time 15 minutes 

5. Alternate #4: Eouble helo time factors tao le 



HEL0 TIME FACTORS 




TIME 



Figure 5.14 Helicopter Time Factors- 
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TABLE V 

Sensitivity Index: Helicopter Time Fact»rs 



Parameter 




Number personnel ashore (3 h:_s . ) 


Base : 




6394 


A lternate 


# 1 : 


7110 


Alternate 


#2: 


6542 


Alternate 


#3: 


64 04 


Alternate 


#4: 


6266 



Change in Parameter 


Change in NOE 


Sei s. Index 


(ir minute s) 


(£ troops ashore) 


(MO E/para .) 



Base 


Alt 


#2: 


c 


352 


-71 


Alt #1 - 


Alt 


#2: 


4 


563 


- 142 


Alt #2 - 


Alt 


#3; 


c 


133 


-28 


Base 


Alt 


*3: 


10 


490 


-49 
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PERSONNEL 

2000 4000 6000 8000 



Eea c h size 

1. Base case: 6 LVTs 

2. Alternate #1: 2 LVTs 

3. Alternate #2: 4 LVTs 

4. Alternate #3: 8 LVTs 

5. Alternate #4: 10 LVTs 



BEACH SIZE 




Figure 5.15 Beach Size 



TABLE 71 

Sensitivity Index: Beach Size 



Para met er N umber personnel ash ore (3 h:_s . ) 



Base: 6894 
Alternate #1: 5604 
Alternate #2: 6534 
Alternate #3: 6894 
Alternate #4: 7097 



C hange 


in Parame- 


ter 


Change in NOE 


Seis. Index 




(i£ 


IVTs) 






(# troops ashore) 


(NO E/para .) 


BaS' 


e 


- Alt 


#4 : 


2 


360 


+ 180 


Alt 


#1 


- Alt 


#2: 


2 


930 


+ 465 


Alt 


#2 


- Alt 


#4: 


6 


563 


+ 94 


Alt 


#1 


- Alt 


#4 : 


8 


1493 


* 187 


Alt 


#1 


- Alt 


#3 : 


6 


1290 


+ 215 
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PERSONNEL 

2000 4.000 6000 8000 



1. Base case: 

2. Alternate 

3. Alternate 

4. Alternate 

5. Alternate 



#1 : 


48 

6 


CH- 46 
CH- 46 


#2: 


4 


CH- 46 


#3: 


3 


CH- 46 


#4: 


2 


CH- 46 



Helicopters 

Helicopters 

Helicopters 

Helicopters 

Helicopters 



i 1 



LANDING ZONE SIZE 




Figure 5.16 Landing Zone Size 



TABLE VII 

Sensitivity Index: Landing Zone Size 



Para met er 
Base : 

Alternate # 1 
Alternate #2 
Alternate #3 
Alternate #4 



N umber person nel as hore (3 h:_s. ) 

6894 

6532 

5866 

5650 

5495 



Change 


in Parameter 


Change in NOE 


Sei s. Index 


(in 


CH-46s 


) 




(£ troops ashore) 


(NOE/para .) 


Base 


■ Alt 


#1 : 


42 


362 


-9 


Alt #1 


- Alt 


#2: 


2 


666 


- 333 


Alt #2 


- Alt 


#3: 


1 


216 


- 216 


Alt #3 


- Alt 


#4: 


1 


155 


- 155 


Alt #1 


- Alt 


#3: 




882 


- 294 


Alt #1 


- Alt 


#4: 


4 


1037 ■ 


- 260 


Alt #2 


- Alt 


#4 : 


2 


371 


-186 
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Operational Deck Spots 



1 . 


Base case: 




100 


2. 


Alternate 


#1: 


176 


3. 


Alterna te 


#2: 


114 


4. 


Alternate 


#3: 


60 


5. 


Alterna te 


#4: 


20 




Figure 5.17 Operational Deck Spots. 
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TABLE VIII 

Sensitivity Index: Operational Deck Spots 






Parameter 




number personnel ashore (3 h:_s . ) 


Base : 




6894 


Alternate 


# 1: 


6394 


Alternate 


#2: 


68 94 


Alternate 


#3: 


6404 


Alternate 


#4: 


5866 



Chan 


ge 


in Paramet 


er 


Change in *10£ 


Seas. Index 


(in d 


leek spots) 




(£ troops ashore) 


(HO E^ par a.) 


Base 




• Alt 


#1 : 


76 


0 


0 


Alt 


#1 


- Alt 


#2: 


62 


0 


0 


Alt 


#2 


- Alt 


#3 : 


54 


490 


-10 


Alt 


#3 


- Alt 


#4: 


40 


533 


-11 


Alt 


#1 


- Alt 


#3: 


116 


882 


-7 


Alt 


#1 


-Alt 


#4: 


156 


1037 


-6 


Alt 


#2 


- Alt 


#4: 


94 


371 


-4 
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PERSONNEL 

2000 4000 6000 8000 



Number of 6 Helicopter Siz e d Land in g Zones 



1 . 


Case 


#1 : 


6 


he licopte r 


size 


/ 


i 


landing 


zones 


2. 


Case 


#2 : 


6 


helicopter 


size 


/ 


2 


landing 


zones 


3. 


Case 


#3: 


6 


helicopte r 


size 


/ 


3 


landing 


zones 


4. 


C as e 


#4 : 


6 


helicopte r 


size 


/ 


4 


landing 


zones 



i 

SIZE AND NUMBER OF LANDING ZONES 







Figure 5.18 Humber of 6 Helicopter Sized Landing Zones. 
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TABLE II 

Sensitivity Index: # of 6 Helo Sized LZs 



1 



Parameter 


Number personnel ashore (3 hrs.) 


Case #1: 


6266 


Case S2: 


63 94 


Case 4)3: 


6532 


Case 14: 


6532 



Change . 


ic 


Paramete 


r 


Change in MOE 


Sei s. Index 


(in 


# 


1 2s ) 






(# troops ashore) 


(MO 3/para .) 


Case 


#1 


- 


Case 


#2: 


1 


128 


+ 128 


Case 


*2 


- 


Case 


#3: 


1 


138 


+ 138 


Case 


S3 


- 


Case 


#4 : 


1 


0 


0 


Case 


#1 


- 


Case 


#3 : 


2 


266 


+ 133 


Case 


SI 


- 


Case 


#4 : 


3 


266 


+ 89 


Case 


S2 


- 


Case 


#4 ; 


2 


138 


+ 69 
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PERSONNEL 

2000 4000 ' 6000 8000 



Number of 4 Heli cop t er Siz e d Landi ng Zo nes 



1 . 


Case 


#1 : 


4 


he licopte r 


size 


/ 


i 


landing 


zones 


2. 


C as e 


#2: 


4 


helicopter 


size 


/ 


2 


landing 


zoq es 


3. 


Case 


#3 : 


4 


he licopter 


size 


/ 


3 


landing 


zones 


4. 


Case 


#4 : 


4 


he licopte r 


size 


/ 


4 


landing 


zones 



I T 

SIZE AND NUMBER OF LANDING ZONES 




Figure 5.19 Humber of 4 Helicopter Sized Landing Zones. 
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TABLE X 

Sensitivity Index: # of 4 Helo Sized LZs 



Para meter 


Number personnel ashore (3 hr_§. ) 


Case #1: 


5866 


Case #2: 


5866 


Case #3: 


6756 


Case #4: 


6756 



Change . 


in 


Parameter 




Change in HOE 


Sei s. Index 


(in 


# 


IZs) 






(# troops ashore) 


fHOE/para.) 


Case 


#1 


- 


Case 


#2: 


1 


0 


0 


Case 


#2 


- 


Case 


#3: 


1 


890 


+ 890 


Case 


#3 


- 


Case 


#4: 


1 


0 


0 


Case 


#1 


- 


Case 


#3; 


2 


890 


+ 445 


Case 


#1 


- 


Case 


#4: 


3 


890 


+ 297 


Case 


#2 


- 


Case 


#4: 


2 


890 


+ 445 
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PERSONNEL 

2000 4000 6000 8000 



H eli copter La unch Dist ance 



1 . 


Base case 


« 

m 


10 


NM 


2. 


Alternate 


#1 : 


20 


NM 


3. 


Alternate 


#2: 


30 


NM 


4 . 


Alternate 


#3: 


40 


NM 


5. 


Alternate 


#4: 


50 


NM 



i 1 

HELICOPTER LAUNCH DISTANCES 




TIME 



Figure 5.20 Helicopter Launch Distance. 
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TABLE XI 

Sensitivity Index: Helicopter Launch Distance 



Parameter 




Number personnel ashore (3 hr_s.) 


Base : 


* 


6894 


Alternate 


# 1 : 


6532 


Alternate 


#2: 


64 04 


Alternate 


#3: 


6266 


Alternate 


#4: 


60 04 



Change 


ir 


i Paramel 


ter 


Change in HOE 


Sei s. Index 


<i 


n 


NM) 








{# troops ashore) 


(MOS/para .) 


Base 






Alt 


#1: 


10 


362 


-37 


Alt 


#1 


- 


Alt 


#2: 


10 


128 


-13 


Alt 


#2 


- 


Alt 


#3: 


10 


138 


-14 


Alt 


#3 


- 


Alt 


#4 : 


40 


538 


-11 


Alt 


#1 


- 


Alt 


#3: 


20 


266 


-14 


Alt 


#1 


- 


Alt 


#4: 


30 


528 


-18 


Alt 


#2 


- 


Alt 


#4: 


20 


400 


-20 


Base 




- 


Alt 


#2: 


20 


490 


-25 


Base 




- 


Alt 


#3: 


30 


6 28 


-21 


Base 




- 


Alt 


#4: 


40 


890 


-23 
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PERSONNEL 

2000 4000 6000 8000 



Number of Helicopters 



1. Base case: 

2. Alternate 

3. Alternate 

4. Alternate 

5. Alternate 





130 


CH -46 , 


63 


#1: 


156 


CH -46 , 


80 


#2: 


108 


CH-46 , 


64 


#3: 


80 


CH -46 , 


40 


# 4 : 


72 


CH-46, 


48 



CH-53D, 27 CH- 53E 

CH-5 3D, 32 CH-53E 
CH-53 D, 32 CH-53E 
CH-53D, 15 CH- 53E 

CH-53D, 16 CH-53E 



NUMBERS OF HELICOPTERS 







Figure 5-21 Humber of Helicopters. 
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TABLE XII 

Sensitivity Index: Number of Helicopters 



Paramete r 


Number personnel ashore 


( 3 h r. s . ) 


Base: 




6894 




Alternate # 1 : 




71 10 




Alternate #2: 




6670 




Alternate #3; 




6007 




Alternate #4: 




6266 




Change in Parameter 


Change in MOE 


Seis. Index 


(no unit) 




{# troops ashore) 


(M0 E/para .) 


Base - Alt 


#1 : 


+ 216 


N/A 


Alt #1 - Alt 


#2: 


-224 


N/A 


Alt #2 - Alt 


#3: 


-663 


N/A 


Alt #3 - Alt 


#4 : 


+ 259 


N/A 


Alt #1 - Alt 


#3; 


-1103 


N/A 


Alt #1 - Alt 


#4: 


- 844 


N/A 


Alt #2 - Alt 


#4: 


-404 


N/A 


Base - Alt 


#2: 


-224 


N/A 


Base - Alt 


#3: 


-887 


N/A 


Base - Alt 


#4: 


-628 


N/A 


Note: Since there were 
one time during 
devised for the 
index- However, 
can be obtained 


i three parameters changed at 
this run- no unit coula be 
denominator of the sensitivity 
an idea of the model's response 
from the change in HOE values. 
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PERSONNEL 

2000 4000 6000 8000 



Number of C H-4 6 Helico pter s 



1 . 


Base case 




130 


2. 


Alternate 


#1 : 


108 


3. 


Alternate 


#2: 


72 


4 . 


Alternate 


#3: 


54 


5. 


Alternate 


#4: 


36 



NUMBER OF CH-46 HELICOPTERS 




Figure 5.22 Humber of CH-46 Helicopters. 
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TABLE XIII 

Sensitivity Index: Number of CH-46 Helicopters 



Par amet er 



N umber personnel ashore (3 h:_s. ) 



Base: 6894 
Alternate #1: 6670 
Alternate #2: 6670 
Alternate #3: 5987 
Alternate #4: 5599 



Change 


in 


i Parameter 


Change in MOE 


Sei s. 


(in # 


of 


: CH- 


46s) 




(#. troops ashore) 


(10 E/p 


Base 




Alt 


#1 : 


22 


224 


-11 


Alt #1 


- 


Alt 


#2: 


36 


0 


0 


Alt #2 


- 


Alt 


#3: 


18 


683 


-38 


Alt #3 


- 


Alt 


#4; 


18 


298 


-17 


Alt #1 


- 


Alt 


#3 : 


54 


683 


-13 


Alt #1 


- 


Alt 


#4: 


72 


1071 


-15 


Alt #2 


- 


Alt 


#4 : 


36 


1071 


-30 


Base 


- 


Alt 


#2: 


58 


224 


-4 


Base 


- 


Alt 


#3: 


76 


907 


-12 


Base 


- 


Alt 


#4: 


94 


1295 


- 14 
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PERSONNEL 

2000 4000 6000 8000 



Number 


of Eeaches 




1 . 


Base case : 


1 


2. 


Alternate #1: 


2 


3. 


Alternate #2: 


3 


4 . 


Alternate #3: 


4 



NUMBER OF BEACHES 




Figure 5.23 



Number of 



Beaches. 
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TABLE XIV 

Sensitivity Index: Number of Beaches 



Parameter 




Number personnel 


Base : 




6894 


Alternate 


# 1: 


6894 


Alternate 


#2: 


7097 


Alternate 


#3: 


7097 



Change 


in Paramel 


ter 


Change in MOE 


Sei s . Index 


(in 


beaches 


.) 




(# troops ashore) 


(M3 E/para .) 


Base 


- Alt 


#1 : 


1 


0 


0 


Alt #1 


- Alt 


#2: 


1 


203 


+ 203 


Alt #2 


- Alt 


#3: 


1 


0 


0 


Alt #1 


- Alt 


#3 : 


2 


203 


+ 102 


Base 


- Alt 


#2: 


2 


203 


+ 102 


Base 


- Alt 


#3 : 


3 


203 


+ 68 



1 
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landing C raft Launch D ista nce 



1 . 


Base case 


J 


2 


NM 


2. 


Alternate 


# 1 : 


6 


NM 


3 . 


Alterna te 


#2: 


8 


NM 


4. 


Alternate 


#3: 


10 


NM 



i = — 1 



LANDING CRAFT LAUNCH DISTANCES 




Figure 5.24 Landing Craft Launch Distamce. 
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TABLE XV 

Sensitivity Index: Landing Craft Launch Distance 



Parameter 




Humber £§r sonnel 


3ase : 




68 94 


Alternate 


# 1 : 


6894 


Alternate 


#2: 


6534 


Alternate 


#3: 


6244 



Change 


in 


i Paramei 


ter 


Change in HOE 


Seis. Index 


(in . 


NM) 








(# troops ashore) 


(HO S/para .) 


Base 




Alt 


#1 : 


4 


0 


0 


Alt #1 


- 


Alt 


#2: 


2 


360 


180 


Alt #2 


- 


Alt 


#3: 


2 


290 


145 


Alt #1 


- 


Alt 


#3: 


6 


650 


109 


Ease 


- 


Alt 


#2: 


6 


360 


60 


Base 


- 


Alt 


#3: 


8 


650 


82 
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Tiith the above type analysis, one coi Id readily 
observe how the model reacts under different parameters. 
The sensitivity index is a value which provides a weighting 
scheme in order to rate the effects of going fron one set of 
parameters to another. The sign of the sensitivity index 
indicates how the model responds. A positive sign indicates 
improvement in the performance of the landing plan when 
going from one set of parameters to another. A negative 
sign would indicate a decrease in the MOE, thus the plan is 
not improving. 

The sensitivity analysis was conducted utilizing a 
set of base conditions from which a parameter was changed to 
observe the effect. Table XVI lists the parameters altered 
which had the greatest effect within each different set of 
parameters. For instance, within the set of altered parame- 
ters for beach size, the greatest effect occurred when the 
size of the beach was increased from 2 LVTs to 4 LVTs (465 
personnel ashore / minute load time). Thus, tie effect of 
making a change decreased as the size of the teach increased 
beyond a 4-LVT sized beach. The other parameters listed 
follow similar logic. 

The parameters in Table XVI are listed in order of 
increasing sensitivity index. This indicates : he relative 
impact of changing a parameter by one unit as compared to 
the other altered parameters. Thus, the least sensitive 
parameter is the charge of operational deck spots from 114 
to 60 (11 personnel ashore / operational deck spot). The 
greatest sensitive parameter is found by increasing the 
number of 4-helo sized landing zones from 2 to 3 (890 

personnel ashore / 4-helo sized LZ) . 
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TABLE X7I 

Altered Parameters Yielding Greatest Effect in MOE 



Absolute 7 i lue of 
Sensitivity Index 

Change in Pa rameter ( PA = Per sonne l ashor e) 



Op deck 


spot 


s ; 


114 


to 60 






1 1 


PA 


/ 


deck spot 


Helo la 


unch 


d is 


• • 


10 to 


20 


NM 


37 


PA 


/ 


NM 


Number 


CH-4 6 


s : 


72 


to 54 






38 


PA 


/ 


Cl -46 


# cf 6- 


helo 


siz 


ed 


IZs: 2 


to 


3 


138 


PA 


/ 


LI 


Tire factors 


6 


to 


10 mi 


n. 




146 


PA 


/ 


mi n. 


Boat launch 


dis 


: 6 


to 8 


NM 




180 


PA 


/ 


NM 


Number 


beaches: 


2 


to 3 






203 


PA 


/ 


beach 


LZ size 


: 6 t 


o 4 


CH 


-46s 






333 


PA 


/ 


CM - 46 


Beach s 


ize: 


2 to 4 


LVTs 






465 


PA 


/ 


LVT 


# of 4- 


helo 


siz 


ed 


IZs: 2 


to 


3 


890 


PA 


/ 


LI 
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VI. MODEL DOCUMENTATION 



A key tc usability of any computer software is documen- 
tation. [Ref. 10]. The general community of conputer model 
developers and model researchers has not been overly 
concerned with issues of model documentation. This has 
severly handicapped the utility and acceptence o: many valid 

models, and also, allowed some invalid models to he used. 
However, a subgroup of computer model developers, simulation 
modelers, have recognized that good documentation aids in 
establishing the validity of simulation models and in 
increasing usage rates [Ref. 11: p-21] 

Since a model’s developers are frequently not the 
models’s ultimate user, concise documentaion is essential 
for effective model use. An article by Louis Fried recom- 
mends that model documentation should at a minimum provide 
the user and analyst views [Ref. 12]. Proper documentaion 
involves the use of four types of manuals which provide 
information for four different classes of audiences. These 
consist of managers (decision makers), users, analysts, and 
programmers. Each manual should include some common topics 
such as a table of contents which can be expanded upon or 
modified according tc requirements of the specific model. 
Terms of each manual should be directed towards the audience 
of interest. The following will briefly sun marize the 
thrust of the four types of manuals. 

In the decision-maker’s environment, the main goal of a 
manual is to assist managers to make decisions. To accom- 
plish this end, the manual must describe the model and its 
applications to managers (those who sponsored the model and 
those who nay be interested in a developed model) . The 
manual should provide managers with sufficient information 
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to permit them to accurately assess the model input require- 
ments (time, money, and other resources), available outputs, 
and the accuracy and precision of the results. Decision 
makers can use this manual to justify the employment of the 
model and in evaluation of the results. [Ref. 13: p.2] 

A user is interested mainly in deriving results from, a 
model for specific applications . The user’s manual must 
contain sufficient information to allow the users to employ 
the model intelligently and accurately. The user, although 
occasionally unfamiliar with computer techniques, must be 
informed of the model’s logical structure, general simula- 
tion approach, and any assumptions and limitaions affecting 
the model’s applicability. It is not necessary to have 
details of the analysis or programming beyond the prepara- 
tion of input data and interpretaion of model results. 
[Ref. 13: p.2] 

The primary purpose of a programmer’s maiual is for 
maintenance and modification of the model. Since a 
programmer must correct any errors discovered luring model 
usage and possibly convert the model for use on another 
computer, the guidance provided by the manual should he on 
two levels. The micro level should contain details of what 
happens in each routine thus providing facts about what 
occurs in each of the parts of the model on an individual 
basis. The macro level gives an overall discussion of the 
processing techniques used and their relationships. Thus, 
it provides a grasp of how everything is tied together high- 
lighting areas vulnerable to change. [Ref. 11: p.3] 

The analysts manual is the source document for an 
analyst who is primarily interested in the analytical tech- 
niques and algorithms used in a model. This manual should 
explain the equations used in the model and the methods used 
for verification and validation. It is not necessary to 
include details such as input and output formats or program- 
ming details involving language syntax. [Ref. 13: p.3] 
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The decision on which types of manuals are required 
depends upon the individual model and should be made on a 
case-by-case basis. Although the main audience for the 
ship- to-shore model will be decision-makers and users, there 
exists the need for the programmer’s manual as well. The 
analyst’s manual would not offer anything differs nt from the 
ether three, therefore it was deemed unnecessary. The docu- 
mentation for this model will be of a combined format with 
sections directed at the respective audiences. 

Each section will be based on recommended outlines found 
in [Eef. 13] with whatever modifications are necessary. The 
sections will be self-contained and pertain to each of the 
three classes of audience to facilitate ease of use. The 
entire model documentation is found in appendices A through 
F and can be removed as a separate unit. 
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VII. CONCLUSIONS 



A. SUMBARY 

The proper construction of a simulation n odel is a 
formidible task. It involves many facets other than the 
writing of code which is supposed to reflect a real life 
system. There are numerous activities required prior to the 
programming stage which are vastly more important. 
Eefiniticn of the problem is probably the most critical step 
in the process and should involve a great deal of effort. 
All too often a piece of software is developed in a vacuum 
without regard to the user and the actual probL em which is 
to be solved. This tends to reduce the crediblility of 
simulations and their usage. 

This thesis attempted to demonstrate the proper proce- 
dure in the construction of a model. Although, the model 
was already in existence, the procedure outlined in chapter 
II was employed as much as possible. In some respects it 
was more difficult to start with a nearly finished product, 
learn the code, dissect the logic, flow chart the model, and 
then work forward through the model building steps. 
However, the primary purpose of this research was to 
complete the amphibious sh ip- to-shore model for use on a 
microcomputer. To accomplish that end it was necessary to 
start with the existing simulation. 

Based on the material presented in this thesis, it is 
felt by the author that SHIPSHOR is basically a good repre- 
sentation of the ship- to- shore movement of an amphibious 
landing. From the results of the validation and sensitivity 
analysis and in conjunction with the author's experience, it 
is concluded that SHIPSHOR has a great deal of potential and 
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is a viable decision aid. It also has room r expansion 
and continued improvements. The next section will address 
the areas for future enhancements and applicability. 

B. FUTURE ENHANCEHESTS 

As discussed in the beginning of this thesis, model 
development is a continuous process. During the conduct of 
research and analysis of SHIPSHOH, many areas for possible 

future enhancements were realized. Some of the more promi- 

nant ones are: 

• More sensitivity analysis 

• Improve any area discovered during additional sensi- 
tivity analysis 

• Elimination of some of the limitations o: the model 

that were encountered 

• Employ stochastic modelling of the various time factors 
which are currently expected values 

• Use the Basic Compiler to improve the speed of execu- 
tion of the model 

• Add a stochastic attrition subroutine option 

• Automate the wave and serial assignment table which 
forms the basis for the landing plan file 

C. FUTUEE APPLICATIC BS 

The main reason for the development of SHIPS HOE was for 
use in a study which was to assist procurement planning. 
There was nothing specific planned beyond that objective. 
Currently, most U. S. models are designed for aiding analysis 
involved in hardware procurement and force siz= determina- 
tion. However, there is a broad range of uses for simula- 
tions which have teen overlooked by U.S. military 
organizations. 
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The Soviets have for many years utilized mol els as part 
of an integrated system of decision aids for the commander. 
SHIPSHOR is a type cf model which could lend insight into 
operational planning for the commander and his staff. Once 
the model has gained the necessary confidence of the poten- 
tial users, it could be used to help a commander make deci- 
sions regarding various options he may be considering. 
Choices such as the number of LZs, size of LZs, number of 
beaches, number of helicopters, etc. could be run through 
the model to observe the effects on the J30E of chcice. 
Then, based on those results, the commander cai make deci- 
sions for the landing. 

Another possible application is related to predictive 
planning. The model could be used as a gauge :o determine 
if the landing is proceeding as desired. If the actual 
landing is not progressing according to the predictions of 
the model, the commander could make adjustments to get back 
on his schedule. Of course, any use of this mo del will be 
depend on its reputation and credibility. A good reputation 
will only be formed after continued validation and 
modification. 
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appmdix & 

GLOSSARY OF ACRONYMS 


Acronym 


Def initi on 


CH-46: 


A twin-turbine powered, tandem rotor ass-ault trans- 
port helicopter. - It has a cruising speed of 120 
kts. Under ideal conditions it has a max payload 

of 4280 lbs. The max number of troops (the 

primary paylcad) it carries is 17. 


CH-53D: 


A twin- turbine powered, single main rotor assault 
cargo heliccpter. It has a cruising speed of 150 
kts. Under ideal conditions it has a max paylcad 
of 13761 lbs. The max number of troops it carries 
is 57. The normal payload of the CH-53 is cargo. 


CH-53E: 


Same characteristi cs as the CH-53D with the excep- 
tion of the payload. The max payload of this 

aircraft is 16000 lbs. 


1ARC : 


A wheeled amphibious vehicle. It can ci rry approx- 
imately ten troops. The primary mission of this 

vehicle is for use on the beach by the unit that 
controls the beach organization. 


LCM-6: 


Landing craft, mechanized. This is a flat bottomed 
boat used to transport vehicles and trcops to 
shore. The 6 designates the size of th* craft. 


ICH-8: 


Same type of landing craft as the LCM-6 with the 
exception of the size. The 8 indicates that it is 
a larger craft than the LCM-6. It can carry a tank 
where the LCK-6 cannot. 



89 



ICO: 



LHA: 



IPD : 



IPH: 



1SD : 



1ST: 



Landing craft, utility. Carried on larger amphib- 
ious ships although it is a self contained unit. 
This is the largest of the flat-bottomed landing 
craft used to discharge troops and vehicles ashore. 
It can carry two tanks. 

Helicopter assault ship. It has a helicopter 
flight deck as well as a loading dock for landing 
craft. • The ship actually floods its well deck in 
order to launch the landing craft. It displaces 
about 30000 tons and can carry 2000 combat troops. 
It is approximately the size of a WWII aircraft 
carrier. 

Landing ship with internal loading docks for 
launching landing craft. It has a small two spot 
flight deck for helicopter operations, however does 
not carry its own aircraft. It displaces 17000 
tons and can carry 900 troops. 

Helicopter assault ship without loading docks. It 
has extensive medical facilities. Sin: e it has no 
loading docks, it can not carry heavy equipment. 
It displaces 18000 tons and can carry 2 000 trcops. 
The first of the class was actually a converted 
WWII aircraft carrier. 

Landing ship with internal loading docks for 
landing craft. It has a small one spot flight deck 
for resupply. It displaces about 1303 0 tons and 
can carry 350 troops. 

landing ship, tank. Originally designed in WWII, 
it can land tanks and other vehicles directly onto 
the beach through a bow ramp. It has a small one 
spot flight deck for resupply. LSTs displace 8200 
tons and can carry about 350 troops. 
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IVT: 



Landing vehicle, tracked. This is trulf an amphib- 
ious landing craft that has tracks for movement off 
the beach. The current model, 1VTP-7, is designed 
for carrying 25 troops from the amphibious ships 
into land combat. It is completely enclosed to 
provide all-around armor protection from shrapnel 
and small arms. 7 



7 The above definintions are found 

[Ref. 7]. 



in [ Ref. 1 ] and 



91 



APPENDIX 3 

DECISION-MAKER'S MANDAL 



A. I ABLE CF CONTENTS 

E. Introduction 92 
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2. Verification and Validation 99 

E. Current and Additional Applications IOC 

1. Current Use 100 

2. Additional Applications 101 
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E. IBTBCDUCTIOH 

The ship-to-shore model was initiated by : he Analysis 
Support Branch of the Marine Corps Development Center, 
Guantico, Va. in support of the Amphibious Lift Study. The 
original mcdel was delivered in an unusable form which 
prompted revision by the author. The purpose )f the model 
is to simulate the movement of units of various sizes from 
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amphihious shipping to shore via surface and helicopter 
transportation. 

The purpose of the decision- maker * s manual L s to commu- 
nicate to managers the capabilities of the sh ip- to- shore 
model. To attain this, the contents of this section will 
describe the model, its development and experimentation, and 
current applications. 

C. MODEL DESCBIPTIOH 

1 . Cap abi lities 

The model, called SHIPSHOE, can be used :o determine 
build-up of troops and firepower ashore versus time. It can 
also be used to compare the effects of changes in the number 
and size of landing zones (beaches), numbers of carriers, 
numbers of amphibious ships, distances from launch, deck 
spot utilization, and attrition. These capabilities of the 
model are concerned with utilization in the planning of 
operations as well as use during the execution of the plan. 
The model accomplishes the above tasks through a series of 
subroutines which calculate the time for certain events to 
cccur, then executes those events sequentially. (See Figure 
E.1) A detailed explanation of the subroutines pan be found 
in the programmer’s section. 

The ship-to- shore model can be utilized in studies 
involving amphibious operations to determine optl mum carrier 
number, launch distance mixtures, deck spot utilization, 
etc. The model could also be employed in a planning mode to 
predict approximate troop build-up ashore given the unit, 
distance of launch, number of carriers, number of deck 
spots, etc. This could be useful in planning an operation 
as well as gauging the progress of the landing. 
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Figure B. 1 Flow Chart of Model Routines. 
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2. Input/Output Classes 

Input data is broken down into three categories. 
Ihe largest group of data is found in the landing plan file. 
The file requires the manual construction of serials and 
assault waves in a specific format. The format is found in 
the ’help 1 file (Appendix E) and the user f s manui 1 (Appendix 
B) . An example of tie file is listed in Figure B.2 . 
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Figure B.2 Example of Landing Plan. 



Two other data sources are needed to run the model. 
One file contains parameter values which are not subject to 
change and is called T-1.DAT. See ’help 1 file for the 
format. Figure B. 3 is a listing of that file. A helicopter 
time factors table which provides expected times for various 
evolutions is an example of the type of data f^und in this 
fil e . 



The last 
itself as either 
This data is of 
various types of 



data source is 



a line of 


code 


the type 


that 


analysis. 


See 



found within the program 
or as an interactive query, 
may be changed easily for 
help 1 file and Figure E. 4 . 
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c: TYPE T-l.DAT 

9 , 7 , 4 ,?, 9 . 7 , 2 , 2 . 9 , 7 , 4 . 4 , 7 . 7 , 4 , 2 , 7 , 7 ,. 4 , 2 , 7 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 . 1 , 1 , 1 , 1 , 2 , 1 , 1 , 2 , 
1 , 1 . 1 , 1 , 1 , 1 , 1 . 1 , 1 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 
0 , 0 . 0 , 1 , 1 , 4 , 4 , 4 , 4 , 1 , 1 . 1 , 5 , 3 . 10 , 4 , 4 , 4 , 4 . 4 . 4. 1 . 1 , 1 
1 20 , 1 00 , 1 00 , 3 , 9 , 12 , 11 , 20.20 

1 , 1 , 1 , 1 , 1 , 1 , 4 . 10 , 10 , 10 , 10 , 10 . 1 , 1 , 1 , 1 , 1 , 1 , 0 . 10 . 10 , 10 , 10 , 10 , 0 . 5 , 5 , 5 . 5 , 5 . 1 , 2 . 2 , 2 . 2 , 
2 , 1 . 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1.1 

c:- 



Figure B. 3 Example of Data File T-l.DAT. 



RUN 

* OF SERIAL LINES OF DATA FOR SCHED, ON-CALL, 4 NONSCHED HELD THEN SURFACE: 69 , 23, 0, 60, 0, 0 
Setup 19907 

4 OF SHIPS BY TYPE (LHA, LPH, LSD, LPD, LST) :5,7, 1,9, 1 
1ST TURNAROUND SCHED HELD WAVE: 14 
4 OF BEACHES AND » OF LANDING ZONES; 4. ,7 

HELO LAUNCH DISTANCE, BOAT' LAUNCH DISTANCE, AND SHORE TO LZ DISTANCE: 50, 2, 5 
LHOUR AND HHOUR: 017000, 0 

» OF WAVES IN ORDER SCHED, ON-CALL, NONSCHED HELO THEN SURFACE.-23, 10,0, 19,0,0 
4 OF HELOS THAT CAN OCCUPY AN LZ AT ANY ONE TINE BY TYFE (CH46, CH53D, CH53E, UHIN) : 10,3,3, 16 
4 OF CARRIERS BY TYFE (CH46, CH53D, CH53E, UHIN, LVT,LCN6,LCN9,LCU, LST, LARC): 156, SO, 32, 0,249, 52, 3942, 23,0, 12 
4 OF SURFACE CRAFT THAT CAN OCCUPY A BEACH AT ANY ONE TINE BY TYFE (LVT, LCN16, LCH3, LCU, LST , LARC) : 6, 5, 4,2, 1,4 



INPUT DATA FILE HAHE:LFE. DAT 
OUTPUT FILE NAME; TEST 1 



I 

J 



Figure B.4 Example of Interactive/Line Input Data. 

The output of the model can be modified to reflect 
the on-going utilization. For exmaple, if the MOE is 
build-up ashore, the output could be personnel and firepower 
ashore at given times. This data could be printed or sent 
to a file for use in a graphics program to plot the 
build-up. See Figure B.5 . 
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PERSONNEL BUILDUP ASHORE 




Figure B.5 Example of a Graph of Build-up Ashore. 

Total time tc land a particular sized force could be 
obtained for several different sets of input data. Then a 
graph could be made comparing the various sets of inputs to 
obtain sensitivity analysis for the desired parameters. For 
details of the coding requirements see the user’s manual. 

3 • As s ump ti ons an d limitations 

Assumptions which affect the results oE the model 
are as fellows: 
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• Helicopter and beat time factors are expected 
values as opposed to stochastic valies. This 
assumption is considered reasonable since the 
factors are used many times. This lends itself to 
the use of averages according to the central limit 
theorem. 

• There is an attrition rate which is predetermined 
and set as a constant. This designates mechanical 
and/or combat attrition. The value used is based 
on experience and not on any factual data therefore 
it is considered an assumption. 

• All time calculations are assumed to ba rounded to 
the nearest minute. 

• Environmental effects are assumed to negligible 
which implies load limitations of the helicopters 
and landing craft are based on an average day. 



limitations of the model depend highly on the model 
purpose. The following are the major limitations: 



• In order to run the surface portion of the model, 
there must be a sufficient number of carriers to 
land the scheduled and on-call waves. 

• Each helicopter wave must use the si me type of 
helicopter. Since the model computes all activi- 
ties and times based on a particular wave, the 
speed of the aircraft must be the same. 

• Once the leads are assigned to a wave and heli- 
copter type, they can not be switched during the 
simulation. Therefore, unlike the flexibility in 
reality of switching loads to available craft, the 
model does net have that capability. 

• Waves and serials are not designated to a partic- 
ular ship. Therefore, the simulation looks at the 
total number of deck/well spots for the entire 
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amphibious force instead of those individual ships 
tc which craft are assigned to load. 

• The current edition is limited to a maximum of four 
landing zones or beaches. This can be modified by 
making a change in the coding. 

D. DEVELOPMENT AND EXPERIMENTATION 
1 ♦ De v elopmen t Hi stor y 

The s hi p-to-shore model is currently the first 
revised edition. The original was developed by General 
Research Company for use in the Amphibious Lift Factors 
Study at the Development Center Quantico, Va. The devel- 
opers turned over the product in an unusable form with a 
paucity of documentation. The current form was revised by 
the author. It involved variable identification and then 
construction of a detailed flow chart to understand the 
logic of the model. Enhancements included interactive 
input, output to a file, a detailed documentation section, a 
’help* file, and conversion to IBM disk operating system for 
an IEM PC. 

2. Ver ifi c ati on a nd Validat ion 

The validation conducted on the model consisted of 
two phases. The initial phase involved the testing of a 
simplified landing plan which could be checked by hand 
calculations. The results showed that the model performed 
the basic computations as it was designed. 

The second phase of the validation utilized the 
results of another, large scale simulation. Since histor- 
ical data did not exist, it was necessary tc compare 
SHIPSKOR against another simulation (CAAM) to verify the 
output. CAAM was used in a study conducted by the Marine 
Corps in 1983 (see [Ref. 9] ). The method for comparison 
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was a graphical technique in which the output from each 
model was used. The parameters for the simualation were 
similar so that a direct comparison could be made. A ten 
percent confidence interval was placed around the output 
from CAAM tc provide a feel for the similarities. 

The results of the above procedure produced outputs 
which were very close. There is no way to place a numerical 
value on the comparisons that would make any sense. Thus, 
the method employed for phase two of the validation is more 
subjective than objective. However, the confidence in 
SHIPSHOE, based on the validation conducted, should be as 
high as that of CAAM. 

Finally, sensitivity analysis was conducted on 
SHIPSHOE using a variety of parameter sets to observe how 
the model behaved. The results were portrayed graphically 
which provided a feel for the performance of ths simulation 
when conducted under different conditions. This analysis 
demonstrates which parameters affect the model greatly and 
which have a lesser influence on the results. 

The details of validation and sensitivity analysis 
can be found in Chapter V of this thesis. ■ The analysis was 
not, by any stretch of the imagination, all encompassing. 
That would require a considerable amount of study due to the 
large number of parameter combinations that might be tested. 
However, the analysis that was conducted can be repeated 
under many conditions of interest to give further enlighten- 
ment to the user of the model. 

E. CUBBENT AND ADDITIONAL APPLICATIONS 
1 . Cur rent Use 

Current interest in the ship-to-shore nodel exists 
in the plans and operations section of HQMC for amphibious 
lift planning. The model can provide a desk-top decision 
aid for immediate ’what if’ type questions. 
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2 . A dditi onal App lica t ion s 
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r S. M. Ritacco, USMC, 1 984, NFS. 
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APPENDIX C 
USER'S MANUAL 

A. TABLE OF CONTENTS 

E. Introduction 102 

C. Description of tie Model 103 

1. Overview 103 

2. Methodology 109 
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D. Model Input Data 117 
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F. Sample Run 128 

G. Variable Names and Locations 128 

B. INTRODUCTION 

The ship-to-shore model was initiated by : he Analysis 

Support Branch of the Marine Corps Development Center, 
Quantico, Va. in support of the Amphibious Lift Study. The 



102 



original model was delivered in an unusable form which 
prompted revision by the author. The purpose if the model 
is to simulate the movement of units of various sizes from 
amphibious shipping to shore via surface and helicopter 
transportation . 

The purpose of the user’s section is to provide nonpro- 
gamming users of the ship- to-sh ore model with the informa- 
tion necessary to use the model effectively. Td .accomplish 
this end the following section will describe the model, give 
details for the model input data, explain the model output 
data, and give some sample runs and examples. 

C. DESCRIPTION OF TEE MODEL 
1 . Cve rvie w 

a. Model Identification 

The model documented in this manui 1 is named 
SHIPSHOR. It is designed to simulate the movement of men 
and equipment via helicopters and surface craft from amphib- 
ious shipping to shore during an amphibious landing. 
SHIPSHOR is written in Microsoft Basic and designed to be 
used cn an IBM PC. However, it can be modified to run cn any 
pc which can be converted to run Microsoft Basic formatted 
for MEOS. Currently SHIPSHOR has no relation to any ether 
models. 

b. Physical System Highlights 

The majer activities during a si ip-to-shore 
movement for either helicopter-borne or surf ace-borr.e units 
are listed in Figure C. 1 

The first activity is the loading phase. This 
takes place aboard the amphibious shipping located in its 
designated sea echelcn area. It consists of the loading of 
troops and/or equipment aboard helicopters or surface craft. 
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Mow cf*rt of th* syntt* 




Figure C. 1 Flow Chart of the System. 
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The launching phase follows loading i nd involves 
the launch and rendezvous of the carriers in order to 
proceed to shore as an entire wave. Once the wave is 
constituted it travels via prescribed routes to its 
destination. 

Approach, landing, and off-loading transpires 
next at the appropriate destination. This phase of the 
amphibious landing is where combat attrition is most likely 
to occur. Both landing craft and helicopters are most vuln- 
erable in a static situation while troops and eguipment 
off-lcad . 

The return transit takes place for all carriers 
except LVT’s (amphibious tracked vehicles) which proceed 
inland. Upon return to amphibious shipping the transports 
must wait for an opening on the flight deck or the well-deck 
to land (dock) . The vehicles will then refuel and prepare 
for their next trip ashore. The cycle is then repeated 

until all necessary assault waves are ashore. 

Each class of wave (scheduled, on-call, and 
nonschedcled) will execute all the events listed above. The 
order in which each class of wave will commence the cycle is 
normally (1) scheduled, (2) on-call, and then (2) nonsche- 
duled. However, on-call and nonscheduled waves can inter- 
rupt the sequence depending on the situation ashore. 

c. Model Applicability 

The model, called SHIPSHOR, can be used to 
determine build-up cf troops and firepower ashore versus 
time. It can also be used to compare various changes in the 
number and size of landing zones (beaches) , numbers of 
carriers, numbers of amphibious ships, distances from 
launch, deck spot utilization, and attrition. These capa- 
bilities of the model are concerned with the utilization in 
the planning of operations as well as use during the 
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execution of the plan. The model accomplishes the above 
tasks through a series of subroutines which calculate the 
time for certain events to occur, then it executes those 
events sequentially. (See Figure C. 2) A detailed explana- 
tion of the subroutines can te found in the programmer's 
secticn . 

The ship-to-sh ore model can be a tilized in 
studies involving amphibious operations to determine optimum 
carrier number, launch distance mixtures, deck spot utiliza- 
tion, etc. The model could also be employed in a planning 
mode to predict approximate troop build-up ashore given the 
unit, distance of launch, number of carriers, number of deck 
spots, etc. This could be utilized in the planning phase of 
an operation to provide a commander with estimates of the 
time involved to land his forces using a particular scheme 
of maneuver. He cculd investigate the effect of changing 
various input parameters within the model to aid in his 
decision process. For instance given his force size, he may 
want to determine the minimum number of helicopter landing 
zones which would give him an acceptable build-up ashore. 

d. Input and Output 

There are three basic categories of data input 
for SHIPSHOE. The landing plan data file is the largest and 
most important. It contains the wave and serial, data which 
are such items as personnel, wave number, destination, fire- 
power score, type of carrier, class of the wave, etc. The 
second data file is called T-1.dat and is made up of all the 
parameter data which is not likely to change jften. The 
third source of input data is either interactive input or 
line input (to chance parameters within code). This data 
consists of parameters which will be changed often during 
sensitivity analysis. 
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Figure C.2 Flow Chart of the Model- 
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The output of the model can be n odified to 
reflect the on-going utilization. For exmaple, if the HOE is 
build-up ashore, the output could be personnel and firepower 
ashore at given times. This data could be printed or sent 
to a file for use in a graphics program to plot the 
build-up. See Figure C.3 . 



PERSONNEL BUILDUP ASHORE 




' Figure C.3 Graph of Build-up Ashore. 

Total tine to land a particular sized force 
could be obtained for several different sets of input data. 
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Then a graph could le made comparing the various sets of 
inputs to obtain sensitivity analysis for the desired param- 
eters. For details of the coding requirements, see the 
programmer's or user's section. 

2 • Me thodology 

a. Physical System Details 

The following gives more details for the phys- 
ical system being modelled and is an elaboration of Physical 
System Highlights section; 

• l oad ing pha se : The loading phase can only take 

place if there are sufficient carriers available 
to load the entire wave. Also, there must be the 
requisite number of deck (well-decki = spots to 
accomodate the carriers which are to load. Once 
those conditions have been met the first activity 
can be completed. 

• l aun ch phase: No additional details. 

• U nloading phase : The conduct of this pi ase depends 
upon two restrictions. The beach or landing zone 
must be large enough to accomodate the current 
wave. If the preceeding wave is still present, 
the landing area may not be large enough which 
will cause a delay. Also, the current wave may be 
too large by itself which means onl/ a limited 
number of boats or helicopters can off-load while 
the other vehicles await an opening. 

• R etu rn phase: No additional details. 

• A rri ve back pha s e: This phase can ae completed 

when there is a sufficient number of deck spots 
(well or flight) to accomodate the returning 
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has landed 



vehicles. Once the wave of vehicles 
the cycle can repeat itself. 

t. Model Logic and Data Flow 



The model utili 
translate reality into math 
of the model in very gener 
The first subroutine in the 
wave and serial file and th 
able data is entered wi 
program. The second subro 
clocks to be used by the 
based on the information f 
subroutines essentially co 
of the model. 

Once the model 
continues the time/event pr 
landed. The EXEC subroutin 
all waves eventually pass, 
(air or surface) and the 
unload, return, or arrive 
will send the wave in guest 
manipulation. 

Prior to going 
tines, the program gueries 
set. If they have been se 
could be called. Five are 
for surface waves. They ar 
• RESTART (helc) / 
for waves that h 
deck spots (helo 
there are net en 
of the assault c 
waves may be de 
timing after such 
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ound the wave data file. These 
mplete set-up and initialization 



enters the EXEC subroutine it 
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e is the control routine in which 
Based on the class of the wave 
current activity (load, launch, 
back ship) , the EXEC subroutine 
ion to the proper subroutine for 

to one of the activity suhrou- 
whether certain flags have been 
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for helicopter waves and four are 
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BESTART (surface) : Restart timing 

ave been stalled by the lack of 
or surface) . Since in reality 
ough spots available to load all 
arriers at one time, subseguent 
layed. This routine restarts 
a delay. 
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• S TOC H (help) / ST OCI (s urf ace) : These subroutines 

start the on-call waves to load after the final 
scheduled wave has begun to load. 

• HALTSH(helc) / HALTSL(surf) : Stall remaining 

scheduled waves when one or more on-call waves 
interrupt the scheduled category. As in reality, 
on-call waves can break in when called for. The 
model allows flags to be set to simulate this 
process. 

• SISH(helo) / STSL (surface) : Start scheduled waves 

that have been stalled due to on-call waves inter- 
rupting the sequence. More than one on-call wave 
can interrupt at different times so the 

HALTSH (L) /STSL (L) subroutines can be called more 
than once. 

• H CKI D (help) : Reevaluates deck spot employment if 

the current wave does not occupy all spots avail- 
able. It calls HSPOT which calculates the number 
cf spots to be used in the current wave. 

One last subroutine will be called prior to the 
activity subroutines. This is the M SORT routine which acts 
as the master sort routine. It takes the lowest time from 
six other time/event sort routines and that becomes the next 
event which is processed by the appropriate activity 
subroutine. 

There are three time sort routines common to the 
helicopter activities and three time sort routines common to 
the surface activities. They all sort through the waves 
identifying the wave with the earliest time for the next 
event. That wave is placed on the top of the gueue from 
which MSCRT then picks the lowest time out of t he six time 
sort routines. Listed below are the sort subroutines: 

• H SSOR T : Scheduled helicopter wave sort routine. 
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• H CSO RT : On-call helicopter wave sort routine. 

• H NSO RT : Nonscheduled helicopter wave sort routine. 

• ISSORT: Scheduled surface wave sort routine. 

• ICSORT : On-call surface wave sort routine. 

• INSORT: Nonscheduled surface wave sort routine. 

The activity subroutines process each wave hased 
on its class, activity code, and category (scheduled, 
on-call, cr nonscheduled). There are five major activity 
subroutines for each class (air or surface) . Each activity 
subroutine calls other secondary routines and the appro- 
priate time sort routine as determined by the wa/ e category. 
Cnee the wave has completed an activity subroutine, it 
returns to the EXEC subroutine and the cycle begins again. 
Thus, each wave will eventually cycle through, five 
subroutines . 

The following is a summary of the activity 
subroutine and their supporting routines: 

• HR1D: The purpose is to load (or attenpt to load) 

a helicopter wave from available flight deck spots 
of the shipping. Loading will not be - initiated if 

(1) no deck spots are currently available or if 

(2) insufficient helicopters of the proper type to 
carry the serials are present at the time. HELD 
calls the appropriate time sort routine (HSSORT, 
HCSORT, or HNSORT) and subroutine SPOTS. The 
SPOTS routine identifies whether all the deck 
spots are curently being employed for loading. A 
flag is set to indicate whether deck spots are 
available cr not. 

• HINCH: This routine launches a helicopter wave 

from ships and determines the time it will arrive 
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at the landing zone(s). It determines the number 
of deck sfcts made available to subsequent waves 
and restores those spots. Also it reevaluates the 
leading time for a wave being loaded which had 
employed all of the remaining deck spots. ELNCH 
calls the appropriate time sort routine (HSSORT, 
HCSORT, or ENSORT) and HLODCK and RESTART. HIOECK 
sets up signals that will initiate a reevaluation 
of the deck spot employment in the event that the 
current wave was not employing the last available 
deck spot. Those signals will trigger the use of 
HCKLD which is called from EXEC. If the current 
wave was occupying the remaining dec< spots, a 
flag is set to call RESTART from EXEC. RESTART 
allows subsequent waves to employ deck spots which 
will be vacated by the current wave. 

• HUNLD: HO KID determines whether or not landing 

zones are still occupied by previous waves and if 
sc delays the landing of the current wave until 
the pertinent zones are free to use. Also it 
calculates the length of time necessary for this 
wave to unload (constrained by the size of the 
landing zone). HUNID calls the appropriate time 
sort routine (HSSORT, HCSORT, or HNSORT) . 

• H RTN : The purpose is to print a running total cf 

the personnel ashore and the firepower ashore. 
Also HRTN calculates the time that the wave will 
return to the area of the shipping and hence be 
available for formation of subsequent waves. It 
calls the appropriate time sort routine (HSSORT, 
HCSORT, or HNSORT) . 
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• HAEIV: HAE3V returns helicopters to the helicopter 
pools for use in forming subsequent waves after 
degrading the number of helicopters to reflect 
maintenance losses. It also initiates the leading 
process for subsequent waves. HARIV calls the 
appropriate time sort routine (HSSORT, HCSORT, or 
HNSORT) . 

The surface activity subroutines operate in 
basically the same manner (the first letter : or surface 
activities is B instead of H) . Since the following routines 
are sc similar to the helicopter routines, only the differ- 
ences will be pointed out. 

• B ELD : The purpose is to load the landing craft in 

a similar fashion to the HELD for helicopters. It 
calls the appropriate time sort routines (ISSORT, 
ICSORT , or LNSORT) and the subroutine WELDEK. 
WELDEK calculates the well decks to be used by 
landing craft of each wave and indicates whether 
there are sufficient openings or not. 

• EINCH: This routine launches the surface waves 

from the ships. It calls the appropriate time 
sert routine (LSSORT, ICSORT, or LNSORT). 

• B UNL D ; BUKID determines if the beach is open for 
landing and offloads the wave if it Is possible. 
It calls the appropriate time sort routine 
(ISSORT, ICSORT, or LNSORT) . 

• BRTN: BRTN prints the running total of personnel 

ashore and the firepower ashore. Also, it returns 
the boats tc the ships. It calls the appropriate 
time sort routine (ISSORT, ICSORT, or LNSORT) . 

• BARIV; This routine returns the boats to the boat 

pools for subsequent use. It calls the 
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LC SORT 



appropriate time sort subroutine (1SS0JT, 
or LNSORT) . 

Once each wave has cycled through the rive heli- 
copter activities or the five surface activities, they are 
assigned a very large value in their time array. This 
prevents them from recycling. The program will end when the 
last nonscheduled surface wave has gone through all activi- 
ties. At that point, all personnel in the wave data file 
will he ashore. 

3 . A ssumption s and Li m itati o ns 
a. System Related 

Assumptions which affect the resuL ts of the 
model are as follows: 

• Helicopter and boat time factors are expected 
values as opposed to stochastic values. This 
assumption is considered reasonable since the 
factors are used many times. This lends itself to 
the use of averages according to the central limit 
theorem . 

• There is an attrition rate which is predetermined 
and set as a constant. This designates mechanical 
and/or combat attrition. The value used is based 
on experience and not on any factual data therefore 
it is considered an assumption. 

• All time calculations are assumed to be rounded to 
the nearest minute. 

• Environmental effects are assumed to negligible 
which implies load limitations of the helicopters 
and landing craft are based on an averag e day. 

Limitations of the model depend highly on the 
model purpose. The following are the major limitations: 
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• In order to run the surface portion o: the model, 

there must he a sufficient number of carriers to 
land the scheduled and on-call waves. 

• Each helicopter wave must use the same type of 
helicopter. Since the model computes all activi- 
ties and times based on a particular wave, the 
speed of the aircraft must be the same. 

• Once the leads are assigned to a wavs and heli- 
copter type, they can not be switched during the 
simulation. Therefore, unlike the flexibility in 
reality of switching loads to available craft, the 
model does not have that capability. 

• Waves and serials are not designated to a partic- 
ular ship. Therefore, the simulation looks at the 
total number of deck/well spots for the entire 
amphibious force instead of those individual ships 
to which craft are assigned to load. 

• There is a max of four landing zones or beaches 
that can be used for any landing. This can be 
modified if more are desired by making a change in 
the code. 

t. Model Parameters 

The model parameters must agree with each other. 
For example, the parameter TA (number scheduled helo waves) 
must reflect the number of waves found in the serial data 
input file. If a parameter value is changed, caution must 

be exercised to ensure other values are not affected in an 
adverse manner. This becomes very apparent when the landing 
plan data file is changed. That change affects the number 
of wave parameters, the number of serial parameters, and a 
host cf ether values. The 'help 1 file gives guidance along 
these lines. 
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c. Output Limitations 

As with any model, results from th2 simulation 
must be used judiciously. The model output is only as good 
as its validation and verification. Even then, no model is 
perfect and results must be used cautiously. SHIPSHOR must 
undergo a rigorous validation and subsequent modifications 
in a series of actual amphibious operations before its 
predictive capabilities are verified as reliable. 

a. Restrictions on Model Dse 

As with any model the current model should be 
considered as an approximation of a complex process which 
contains many variables. It is not designed to produce 
results cn which policy can be based. It is, however, to be 
used to give an estimate where only a bad guess would exist 
otherwise. 

D. HCDEI IHPDT DATA 

1 . Gen era l Descri ptio n 

Input data is broken down into three categories. 
The largest group of data is found in the landinj plan file. 
The file requires the manual construction of serials and 
assault waves in a specific format. The format is found in 
the ’help' file and the user's manual. An example of this 
file is listed in Figure C. 4 . 

Two other data sources are needed to run the model. 
One file contains parameter values which are not subject to 
change and is called T-1.dat. See 'help' file for the 
format. Figure C. 5 is a listing of the file. A helicopter 
time factors table which provides expected times for various 
evolutions is an example of the type of data found in this 
file. 
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is, 

is, 

is, 

2S , 
2S. 
2S, 
3S , 
3S, 
3S, 
4S, 
4S, 
4S, 
5S, 
5S , 
5S, 
65, 
65, 
6S. 



317, 
348, 
378, 
317, 
348, 
378, 
317, 
348, 
383, 
1021 
1 025 
1 030 
29, 
58, 
88, 
ri 

- i 

359, 
389 , 
1 02 1 



128, 
128, 
128, 
128, 
128, 
128, 
2S0 , 
230, 
280, 
, 50 , 
, 50 , 
, 50 , 
112, 
1 12 , 
112 , 
112, 
1 12 , 
112, 



66 , 

66 , 

66 , 

943 

948 

Q 48 

42, 

42, 

42, 

42, 

42, 

42. 

561 



35. 1373, A, A, 3 

35. 1878, A, A, 8 

35. 1373, A, A, 8 

35. 1878, A, A, 3 
35, 1878, A, A, 3 
35 , 1 87 8 , A , A , 8 
70, 3560, A, B, 9 
70, 3560 , A , B , 9 
70 , 3560 , A , B , 9 
, 5476,37414, A 
, 5476, 37414, A 
,5476,37414, A 
34 , 34 1 , A , A , 7 , 
34, 841 , A, A, 7, 

34. 341 , A, A, 7, 
34, 841 , A, A, 7, 

34.341, A, h, 7, 
34,841 , A, A, 7, 

, 3276,23015, A 



, I , R-l ,615 
, I , R-2, 615 
, I , R-3 ,615 
, I , R-l , 615 
, I, R-2, 615 
, I , R-3, 615 
, I , R-l , 1230 
, I , R-2 , 1230 
, I , R-3, 1230 
, B, 3, I , R-l , 360 
, B , 8 , I , R— 2 , 360 
,9,8, I , R— 3 , 360 
I , R-l , 651 
I , R-2, 651 
I , R-3, 651 
I , R-l , 651 
I , R-2, 651 
I, R-3, 651 
, A, 2, I, R-l, 225 



Figure C.4 Example of landing Plan Data File. 



C * TYPE T-l.DAT 

9 , 7 , 4 , 9 , 9 , 7 , 2 , 9 , 9 , 7 , 2 , 9 , 7 , 4 , 4 , 7 . 7 , 4 , 2 , 7 , 7 , 4 , 2 , 7 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 . 1 , 1 , 1 , 2 , 1 , 1 , 2 , 
1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 . 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0, 0 
0 , 0 , 0 , 1 , 1 , 4 , 4 , 4 , 4 , 1 , 1 , 1 , 5 , 9 , 10 , 4 , 4 , 4 , 4 , 4 , 4 . 1 , 1, 1 
120 , 1 00 , 1 00 , 8 , 9 , 12 , 11 , 20,20 

1 , 1 , 1 , 1 , 1 , 1 , 4 , 10 , 10 , 10 , 10 , 10 , 1 , 1 , 1 , 1 . 1 , 1 , 0 . 10 , 10 , 10 , 10 . 10 , 0 , 5 , 5 , 5 , 5 , 5 , 1 , 2 , 2 , 2 , 2 , 

2, 1 , 1 , 1 , 1 , 1 , 1 , 1 . 1 , 1 , 1 , 1 , 1 

C> 



Figure C. 5 Example of Data File T-l.DAT, 

The last data source is found within the program 
itself as either a line of code or as an interactive query. 
This data is of the type that may be changed easily for 
various types of analysis. See 'help 1 file and Figure C. 6 . 
The data sources are summarized in Table XVII . 
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RUN 

» OF SERIAL LINES OF DATA FOR SCHED, ON-CALL, 4 NON3CHED HELD THEN SURFACE: 69, 23, 0, 60, 0, 0 
Setup 19997 

* OF SHIPS BY TYPE (LHA, LPH, LSD, LPD, L5T) : 5, 7, 1,9, 1 
1ST TURNAROUND SCHED HELO WAVE: 14 

t OF BEACHES AND i OF LANDING ZONES: 4., 7 

HELO LAUNCH DISTANCE, BOAT LAUNCH DISTANCE, AND SHORE TO LZ DISTANCE: SO, 2, 5 
LHOUR AND HHOUR: 01 7000,0 

4 OF WAVES IN ORDER SCHED, ON-CALL, HONSCHED HELO THEN SURFACED, 10,0, 19,0,0 

* OF HELOS THAT CAN OCCUPY AN LZ AT ANY ONE TINE BY TYPE (CH46, CH53D, CH53E, UH1N) : 10,3,3, 16 

» OF CARRIERS BY TYPE (CH46, CH53D,CH53E, UH1M.LVT, LCJ16, LCMS, LCU, LST , LARC) : 156,30, 32,0,349,52,3942,23,0, 12 
» OF SURFACE CRAFT THAT CAN OCCUPY A BEACH AT ANY ONE TINE BY TYPE (LVT, LC«6,LCM3, LCU, LST, LARC) :6,5,4,2, 1,4 



INPUT DATA FILE NAME: LPE. DAT 
OUTPUT FILE NAME: TEST 1 



Figure C.6 Exaaple of Interactive/Line Input Data. 



TABLE XVII 



Summary of Input Data Sources 



Category 



Name 



Data Media 



Landing plan 
Fixed parameters 
Interacti ve 
Prbgrara lines 



LPE. DAT 



T- 1 .DAT 



Dis k FL le 
Disk File 
Termini 1 
Listing 
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2 . ret ail ed Descr ipti o ns 

a. landing Elan Data File 

The landing plan file contains tie wave and 
serial data which is processed by the model. It has type of 
carriers, number of personnel, wave number, destination, 
etc. fcr each serial going ashore. Its purpose is to 
provide the model with the troop unit, equipment, and trans- 
portation information which will be 'moved ashore' -by the 
simulation. 

Each line in the data file contains twelve 
pieces of information which the model requires. These are 
explained as part cf an example listed in figure C.7 
Figure C.7 is a part of a 'help' file which located on the 
same disk as the main program and is for use in constructing 
the data file. A copy of the 'help' file is located in 
Appendix E. 

b. Fixed Parameter Data File T-1.DAT 

This data file contains parameter values which 
are not subject to constant change. The three major tables 
of this type are the helicopter time factors, boat time 
factors, and operational deck spot tables. The first two 
provide the expected times for various evolutions to utilize 
and the last gives the deck spots under various conditions. 
Tables XVIII, XIX, and XX list the data which ace read from 
T-1.DAT. The purpose of this file is to read data into 
various arrays within the program which will be used to 
compute event times. 

The first two lines of the T-1.DAT file refer to 
Table XX The data is listed in the file row by row from the 
table. Thus, the first twelve values come from row one of 
the table. The next line contains data from table XVIII It 
is listed in the same manner as Table XX except the first 
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type land the 



THE FOLLOWING IS AN EXAMPLE OF THE DATA INPUT FOR ALL WAVE 
INFORMATION * THE FIRST LINE OF LETTERS AND NUMBERS IS AN ACTUAL LINE OF 
DATA FOUND IN THE LFE.DAT FILE, THE CORRESPONDING LETTERS WILL EXPLAIN 
EACH COLUMN OF DATA, 



1 

, 

A 



Sf317f128f33f35f 1878fAfAf8f IfR-1 f615 

» ,»» * »♦,,* , 

f P f C fD >E f F iGiHrl/jj K f L 



, , , , , 



a: THE NUMBER INDICATES THE WAVE * AND THE LETTER REFERS TO THE 

CLASS OF THE WAVE ( S=SCHEDULED * 0=0N-CALL> N=NON-SCHED ) , MORE 
THAN ONE LINE OF DATA (CALLED A SERIAL) CAN PE OF THE SAME WAVE 
NUMBER, EACH SERIAL RUNS SEQUENTIALLY FROM 1 TO THE LAST SERIAL 
THE CLASS, 

Bt RESERVED FOR FUTURE USE, 

C: NUMBER OF PERSONNEL IN PARTICULAR SERIAL OF A PARTICULAR WAVE 

[i-F: RESERVED FOR FUTURE USE, 

g: MODE OF TRANSPORTATION. (A=HELO> s=surface> 

H: CATEGORIES OF CARRIERS, a THROUGH K CORRESPOND TO 1-11. ( 1 =CH 46E 

2=CH53Df 3=CH53E i 4=UHIN> 5=LVT> 6=LCM-6f 7=LCM-8> 8=LCU> 9=LST, 
1 0 = LARC j 1 1 =LCAC ) , CARRIER TYPE MUST BE THE SAME FOR THE SAME 
WAVE, 

IS NUMBER OF CARRIERS IN THE SERIAL 

JS TYPE LOAD ( I=INTERNAL i E=EXTERNAL f ^COMBINATION ) 

k: destination: (B-1 THROUGH B-4 REFERS TO BEACHES tl THROUGH *4 

AND R-l THROUGH R-4 REFERS TO LANDING ZONES *1 THROUGH *4) 

V, ’ WEAPONS UNIT VALUE ( WUV-F IREPOWER SCORE) 

END OF FILE 

R i T = 0 » 0 1 /O ♦ 09 16:55159 



Figure C.7 Format for the Landing Plan File. 



four values come from the first row of the table. Line four 
lists three helicopter speeds then six landing craft speeds. 
The vehicles for which these speeds are listed are: CH-53, 

CH-46, U H 1 N # LVT, LCM-6, LCM-8, LCU, LST , and LARC. The 
last two lines of the file contain data from Table XIX They 
are also listed by row. (see Figure C. 5 ) 
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* 1 

TABLE XVIII 

Helicopter Time factors in Minutes 



He lo wave operation Inter na 1 

(1) Land in zone 0 

(2) Disenbark troops (cargo) 1 

(3) Takeoff/rendezvous ftem LZ 4 

(4) Maneuver/la nd ship 1 

(5) Refuel/embark troops (cargo) 5 

(6) Takecf f/rendez vous from ship 4 

(7) Maneuver/land in LZ 4 

(0) Safety clearance time 1 



Type of Load 
External 
0 
1 
4 
1 
8 
4 
4 
1 



C om bi n e d 



0 

4 

4 

1 

10 

4 

4 

1 



c. Interactive Data 

Although this source is not a file, it is the 
final means used to assign values to the remaining vari- 
ables. OnCe the first two files are prepared, the model is 
loaded into the computer and initiated. The program will 
guery the user to input data for the parameters which are 
most likely to change during any type of analysis. An 
alternative is to change the code within the program itself 
where seme of these values are found. The parameters that 
are reguested by the interactive input are listed in the 
Table XXI . 
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TABLE XIX 



Boat Time Factors in Minutes 



Bpa_£ jaje ope cation 


1?T 


IcflzL 


Boat t ype 
LCn-0 LCD LSI 


larc 


LCAC 


(i) 


Land at beach lot LZ ) 


1 


1 


1 


1 


1 


1 . 


1 


(2) 


Diseubark troops/load 


4 


10 


1 0 


10 


10 


10 


15 


(3) 


Rendezvous for return 


*1 


1 


1 


1 


1 


1 


0 


PO 


Deck tine to ship (well deck) 


0 


10 


10 


10 


10 


10 


10 


(5) 


Ref uel/eabark troops/load 


0 


5 


5 


5 


5 


5 


15 


(6) 


Circle and rendezvous 


1 


2 


2 


2 


2 


2 


1 


(7) 


Land at beach 


1 


1 


1 


1 


1 


1 


1 


(0) 


Safety clearance tine 


1 


1 


1 


1 


1 


1 


1 



3 . Data Collection and Main tenan ce 
. a. Data Sources 

Two documents must be completed prior to 
construction of the landing plan files. These documents are 
the Helicopter Have and Serial Assignment Table and the 
Landing Craft and Amphibious Assignment Table ( [Ref. 10: 
p.29] ). They are normally prepared during the planning 
phase of the amphibious operation. Once these documents are 
completed, the necessary data exists for compilation of the 
landing plan file. 

The preparation of the preceeding tn o documents 
is a very large, time consuming endeavor. It is extremely 
complex and its intricacy goes up exponentially as the size 
of the unit. Unfortunately, an automated system for this 
task does not exist at this time. 
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TABLE 


XX 














Operational Deck 


Spots 












I nternal 


E 


xternal 


Combii 


ation 






Loading 




Loading 


Loading 






Ship type 


ABC 


D 


A 


B 


C D 


A B 


C 


D 




LHA (# 1) 


9 7 4 


9 


S 


7 


2 9 


9 7 


2 


9 




LPH (#2) 


7-4 4 


7 


7 


4 


2 7 


7 4 


2 


7 




LSD (#3) 


1 1 1 


1 


1 


1 


1 1 


1 1 


1 


1 




LPD ( #4) 


2 1 1 


2 


1 


1 


1 1 


1 1 


1 


1 




LSI (#5) 


1 1 1 


1 


0 


0 


0 0 


0 0 


0 


0 




Helo types: 


A=CH 4 6E 


3= 


CH53D 




C=CH53E 


D=U1 


1 N 




- 



Sources for the remaining data file and interac- 
tive parameters depend on the make-up of the fleet, number 
of helicopters and landing craft available, distance to 
launch, etc. Fixed values such as the helicopter time 
factors are expected values found in Marine Corps 

Publications such as reference 7 dealing with amphibious 
operations . 



b. Updating Procedures 

Each time a new landing plan file is used, all 
the parameters pertaining to the number of waves, the number 
of serials, the number of landing craft for scheduled and 
on-call waves, the name of the landing plan file, etc. must 
be changed to conform to the new data. If this is not 
accomplished an error will occur identifying the line in the 
code where an inconsistency was found. Most of those values 
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TABLE XXI 



Interactive 

Order of 

Be ques t Parame ter Name 



1 


TA 


2 


CA 


3 


NA 


4 


TS 


5 


cs 


6 


MS 


7-12 


N US (I) 


13 


TRNH1 


14 


NNB 


15 


NLZ 


16 


ASAEIS 


17 


LODDIS 


18 


LZ D IS 


19 


HSWAVE 


20 


HCWAVE 


21 


HN WAVE 


22 


LSWAVE- 


23 


LCWAVE 


24 


LNWAVE 


25-28 


HGF (I) 


29-38 


AT (I) 


39-44 


LGF (I) 



Parameters 

De f ini tion 

Sched helo seriaL # 
On-call helo serial # 
Nonsched helo serial # 
Sched surf seriaL # 
On-call surf serl al # 
Nonsched surf serial # 
Ship type (five types) 
1st turnaround wi ve 
Number of beaches 
Number of LZs 
Helo launch disti nee 
LVT launch distance 
Shore to LZ distance 
Sched wave # 

On-call wave # 

Nonsched wave # 

Sched wave # 

On-call wave # 

Nonsched wave # 

# helos max in LI 
by type (4 types) 

# carriers by tya e 
(10 types) 

# boats max at baach 
by type (6 types) 



are found in the interactive mode which helps to prevent 
those types of errors. 
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Other parameters can be changed for sensitivity 
analysis purposes. Since there is such a larj e number of 
parameters, all possible combinations have not been experi- 
mented with. Therefore, there exists the chance that a 
certain combination cf parameters will produce an error. 

E. MODEL OUTPUT DATA 

1 . Gen era l Desc r iptio n 

The output of the model can assume a variety of 
forms depending upon the immediate purpose of : he run. A 
detailed print out cf each wave and its status at various 
times can be obtained by changing the PRINT command to 
LPRINT in line 3692 cf the program as explained in Appendix 
C. Currently this output is suppressed to expedite the time 
to run the simulation. 

Another form of output is the output data file. The 
current edition cf the model sends the time, total personnel 
ashore, and total firepower ashore to a file for use in 
graphic presentations. The program will prompt the user to 
input that data file name during the intializa: ion of the 
model. 

2 • let ail ed Desc ripti o n 

a. Printed Output Data 

The following terms used in TabL e C.8 are 

defined : 

• Save: The wave number currently being processed 

• Activity: 1=load, 2=launch, 3=unload, 4=return, 

5=arrive. Describes the landing activity currently 
being conducted. 

• Mode: 1=helc, 2=surface. Describes whether the current 

wave is helo or surface. 
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Bin: The time of the current 
FASH: Personnel ashore. 
FIEFWR: Firepower ashore and 



activity. 

percent firepot er ashore. 



MIN 23 


CLASS 


1 


WAVE 10 


ACTIVITY 1 


MODE 


1 


MIN 25 


CLASS 


1 


WAVE 9 


ACTIVITY 2 


MODE 


1 


MIN 26 


CLASS 


1 


WAVE 1 1 


ACTIVITY 1 


MODE 


1 


MIN 28 


CLAES 


1 


WAVE 10 


ACTIVITY 2 


MODE 


1 


MIN 29 


CLASS 


1 


WAVE 1 2 


ACTIVITY 1 


MODE 


1 


MIN 31 


CLASS 


1 


WAVE 1 1 


AC1 IVITY 2 


MODE 


1 


MIN 32 


CLASS 


1 


WAVE 13 


ACTIVITY 1 


MODE 


1 


MIN 34 


CLASS 


1 


WAVE 12 


ACTIVITY 2 


MODE 


1 


MIN 33 


CLASS 


1 


WAVE 14 


ACTIVITY 1 


MODE 


1 


MIN 37 


CLASS 


1 


WAVE 13 


ACTIVITY 2 


MODE 


1 


MIN 38 


CLASS 


1 


WAVE 14 


ACTIVITY 1 


MODE 


1 


MIN 41. 


CLASS 


1 


WAVE 1 


ACTIVITY 3 


MODE 


1 


MIN 42 


CLASS 


1 


WAVE 2 


ACTIVITY 3 


MODE 


1 


MIN 43 


CLASS 


1 


WAVE 1 


ACTIVITY 4 


MODE 


1 


PASH Total: 


384 












time?: 43 














F I REP MR ASHORE 1.845 




3- 296 23 2 E- 02 








MIN 43 


CLASS 


1 


WAVE 2 


ACTIVITY 3 


MODE 


1 


MIN 4 3 


CLASS 


1 


WAVE 3 


ACTIVITY 3 


MODE 


1 


MIN 43 


CLASS 


.1 


WAVE 15 


ACTIVITY 1 


MODE 


1 


MIN 45 


CLASS 


1 


WAVE 2 


ACTIVITY 4 


MODE 


1 


PASH Total: 


768" 












times .45 














FIREPWR ASHORE 3690 




6 - 5 9 2 4 6 5 E ~ 0 2 








MIN 4 5 


CLASS 


1 


WAVE 3 


ACTIVITY 3 


MODE 


1 


MIN 46 


CLASS 


1 


WAVE 4 


ACTIVITY 3 


MODE 


1 



Figure C.8 Example of Output. 



i. Output Data File 

The name of the output file is deternined by the 
user when the prompt gueries for output data file name. The 
data which is sent to the output file consists of three 
columns. The first column is the time in minutes of the 
off-loading ashore of a particular wave. The second and 
third columns contain the total personnel ashore and the 
total firepower ashore for the time listed in the first 
column. An example is found in figure C.9 
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29.00 


384 . 00 


0 .03 


37 . 00 


768.00 


0 , 07 


41.00 


1016.00 


0.10 


47.00 


1856.00 


0.16 


55.00 


2006 . 00 


0 . IB 


63 . 00 


2342 . 00 


0 . 22 


65 . 00 


2694 . 00 


0 .27 


71.00 


3030 . 00 


0.30 


73.00 


3216.00 


0.31 


77.00 


3216.00 


0.31 


85 . 00 


3552 . 00 


0 .32 


B7 . 00 


3693.00 


0.32 


S9 .00 


4053 . 00 


0.37 


93 . 00 


4309.00 


0 . 39 


99.00 


4565.00 


0.41 


101.00 


4845 . 00 


0 . 46 


111.00 


4957 . 00 


0.46 


125 . 00 


5247.00 


0.50 


139.00 


5402 . 00 


0.50 


149.00 


5762.00 


0 . 54 


163.00 


5866 . 00 


0 . 54 


185 . 00 


6128.00 


0.54 


215.00 


6266 . 00 


0.55 


218.00 


6469 . 00 


0.57 


225.00 


6607 . 00 


0 . 57 



Figure C.9 Example of Output File. 



F. SAMPLE EON 

See Chapter V of thesis. 



G. VARIABLE NAMES AND LOCATIONS 
See Section F of Appendix E. 
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APPENDIX D 
PROGRAMMER'S MANUAL 

A. TABLE OF CONTENTS 

B. Int reduction 130 

C. Model specif icaticns 131 

D. Model description 132 

1. Overview 132 

2. General logic flow 132 

E. Description of routines 134 

F Data base description 158 

G. Source Listing 163 

H. Glossary of varialles 164 

I. Model test results 164 

B. INTRODUCTION 

The ship-to-shore model was initiated by : he Analysis 
Support Branch of the Marine Corps Development Center, 
Quantico, Va. in support of the Amphibious Lift Study. The 
original model was delivered in an unusable form which 
prompted revision by the author. The purpose )f the model 
is to simulate the movement of units of various sizes from 
amphibious shipping to shore via surface and helicopter 
transportation . 
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The purpose of this manual is to provide programmer 
personnel of SHIPSHCE with the information ni cessary to 
effectively maintain and modify the model. Although the 
flow diagram of the entire model exists, due to its bulk it 
was net included in this thesis. However, the author will 
maintain a copy of the flow diagram if one has na ed of it. 

C. MCDEI SPECIFICATICH 

The following provides a short summary oc the model 
spec! ficat ions . 

1 . Pur pos e 



The purpose of SHIP SHOE is to simulate ai amphibious 
ship-to-shore movement. 

2 • Host S y stem 

IEM Personnel computer 

3 . Pro cess ing regu ire m ents 

IBM PC with 64K RAM and a printer 

4 . la n gua ge 
Microsoft Basic 

5 . Cap abi lities 

• Observe build-up of personnel and firepower ashore 

• Sensitivity analysis for operational planning 

• Time sequence of each landing activity for each wave 

• Predict troop build-up to gauge progress of landing 

6 . limitations 

• Must have sufficient surface carriers to lan d scheduled 
and on-call waves 
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• Each helo wave must use the suae type of heL icopter 

• loads assigned tc a particular wave cannot be switched 

D. BCD El DESCRIPTIOH 
1 . O ve rview 

The model documented in this manual. is named 
SHIPSHOR. It is designed to simulate the movement of men 
and equipment via helicopters and surface craft from amphib- 
ious shipping to shore during an amphibious landing. 
SHIPSHOR is written in Microsoft Basic and designed to be 
used cn an IBM PC. However, it can be modified to run on any 
pc which can be converted to run Microsoft Basic formatted 
for MDOS. Currently SHIPSHOR has no relation to any ether 
models. 

2 • Genera 1 logic flow 

The model utilizes 35 subroutines to attempt to 
translate reality into mathematical computations. A diagram 
of the model in very general terms is found in Figure C. 1 
The first subroutine in the program reads the data from the 
wave and serial file and the parameter file. Also the vari- 
able data is entered within the first section of the 
program. The second subroutine initializes the arrays and 
clocks to be used by the timing and activity subroutines, 
based on the information found the wave data file. These 
subroutines essentially complete set-up and initialization 
of the model. 

Cnee the model enters the EXEC subroutine it 
continues the time/event procedure until all waves have been 
landed. The EXEC subroutine is the control routine in which 
all waves eventually pass. Based on the class of the wave 
(air or surface) and the current activity (load, launch, 
unload, return, or arrive back ship), the EXEC subroutine 
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Figure D. 1 Flow Chart of the Model. 
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will send the wave in question to the proper suo routine for 
mani p ula ticn. 

Prior to going to one of the activity 3 ubroutines, 
the program queries whether certain flags have been set. If 
they have been set, one of nine routines could be called. 
Five are for helicopter waves and four are for surface 
waves. They are shewn in Figure D. 1 . The next section 

will describe each routine found in the model in greater 

detail. 

E. EESCEIPTION OF E COTINES 

The following routines are listed in order o: appearance 

in the program. When two routines appear separated by a 

slash, the first routine refers to helicopters and the 

second refers to surface. The reason for this format is due 
to the similarity in the logic of the routines. Flow 

diagrams of all the routines are held by the author if 
needed. 

1 . Bou tin e Name: SETUP 
a. Purpose 

The initial portion of this routine reads values 
from the T-1.DAT file, interactive input, and input found 
within the code itself. These values are used to dimension 
arrays used for landing plan data and set up initial condi- 
tions for the simulation. SETUP then opens the landing plan 
file for input of the values contained in that file. The 
basic language reads each line from the file as a character 
string, proceeds to strip off individual pieces , converts 
those pieces into numerical values, and then assigns them to 
arrays for later use. This procedure continues until the 
end of the data file is reached at which time the file is 
closed. 
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Another purpose for this section is : o normalize 
LHOUR, HHOOE, and CKCUR by setting the lowest time tc zero. 
It then adjusts the other times to reflect their original 
differences between the variables. 

t. Type function 

This is a routine that is part ) f the main 
program. It is not a subroutine or other type of function. 

c. Calling routines 

None 

d. Called routines 

Calls INITIAL. 

e. Files created or used 

This routine uses two files for inpit: T-1.LAT 

and the landing plan file. It also creates a file for 
output of the time/ number of personnel ashore, and fire- 
power ashore which is used for graphical presentation. 

f. Flow diagram 

Available but not contained in this manual. 

2. Routin e Name: INITIAL 

a. Purpose 

This routine has several functions to perform 
within the model framework. 

• It initializes the time sort arrays which are used to 
track the waves as they progress through the various 
activities . 

• It initializes the deck spots and well de; k spots for 
use by the load activity. 
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• It computes times for landing craft to launch from the 
ships. 

• It ensures sufficient landing craft for scheduled and 
cn-call waves are available in the landing plan file. 

• It initializes the following arrays: SSH, SCH, SNA, 

SSI, SCI, and SNA. These arrays store the serial 
number and its corresponding wave number fc r each line 
cf input from the landing plan data file. They are 
used throughout the program to keep track of all the 
serials in a particular wave. 

b. Type function 

This function is a subroutine. 

c. Calling routines 

INITIAL is called by SETUP routine. 

d. Called routines 

INITIAL calls HSSOHT, HCSORT, LSSORT, LCSOET. 

e . Files created or used 

None 

f. Flow diagram 

Available but not contained in this manual. 

3 . Rou tin e Na me : Wave time s or t rou tine s 



HSSORT : 
HCSCET : 
BNSCRT : 
ISSCRT : 
ICSCRT : 



Scheduled helicopter waves time sort 
On-call helicopter waves time sort 
Nonscheduled helicopter time sort 
Scheduled surface waves time sort 
On-call surface waves time sort 
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INSCRT: Nonscheduled surface waves time sort 



a. Purpose 

The purpose of the time sort routine is to find 
the event with the lowest time amongst all waves within a 
particular class (e.g. HSSORT will search through the sched- 
uled helicopter waves ’looking* for the lowest time for the 
next event). Once that wave has been identified, the infor- 
mation pertaining to its wave number, classification, time 
to next event, load factor, mode, etc. will be transferred 
to the MCLOCK array which stores the same information from 
the five other time sort routines. The MCLOCK array is then 
used by the MSORT routine . 

b. Type function 
Subroutine 

c. Calling routines 

Each activity subroutine calls thj time sort 
routine according to the class of. wave that it is processing 
at the time. For instance, HRLD (helicopter load routine), 
will call HSSORT, HCSCRT, and HNSORT depending an the class 
of wave being processed. 

d. Called routines 
None 

e. Files created or used 
None 

f. Flow diagram 

Available but not contained in this n anual. 
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Sou tin e Name : EXEC 



a. Purpose 

EXEC is the central control routi. ne of the 
model. It controls the flow of all waves by calling the 
proper routine according to the class and mode of the wave 
which has the lowest time for the next event. EXEC first 
checks whether certain flags have been set or not. These 
flags cr ‘signals are ccncerned with special conditions such 
as lack cf sufficient helicopters, lack of deck spots, etc. 
If the flags have been set, the proper subroutine will be 
called tc make adjustments in the time accordingly. The 
subroutine MSORT is then called to provide the wave which 
has the lowest time for the next event. EXEC then routes 
that wave tc the activity subroutine for processing. 

b. Type function 

This function is considered the main program. 

c. Calling routines 

None 

d. Called routines 

EXEC calls or can call the followiag routines: 
HCKLD , STNSH/STNSL, STOCH/STO CL, STSH/STSL, R EST ART/ EE START, 
MSORT, HRID/BRID, HLNCK/BLNCH, HUNLD/BUNLD, HRTN/ERTN, 
HARIV/EARIV. 

e. Files created or used 

None 

f. Flow diagram 

Available but not contained in this manual. 
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5 . 



Bo u tin e Na m e : H RLD/ BRL D 



a. Purpose 



This routine is designed to load (o: attempt to 

load) a helicopter (surface) wave from available deck (well) 
spots on the ships. loading will not occur if (1) there are 
no deck (well) spots or (2) there insufficient carriers of 
the proper type to carry the current wave. 

t. Type function 
Subroutine 

c. Calling routines 

These routines are called from EXEC. 



d. Called routines 



HRLD calls HSSORT, HCSORT, HNSORT , SPOTS ana 
ERLD calls LSSORT, LCSOET, LNSORT, HELDEK. 



e. Files created or used 



None 

f. Narrative 

This subroutine is called from EXEC when MSCRT 
indicates that the current wave scheduled for loading has 
the lowest time amongst all other waves. Ths subroutine 
first checks the class of the wave to be loaded and then the 
deck spot availability. If spots are not available the wave 
must wait for reactivation by RESTART (3E START) as soon as 
the spots become available. If the spots are available, the 
routine compares the number of carriers and type that are 
needed with the number of that type in the carrier pools. 
If the number of carriers is insufficient to lift the wave, 
the wave sort array is advanced by 10 minutes to await 
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return of sufficient carrie 
occurs, the appropriate wa 
determine the next wave for 
For the case o 
load the current wave, the 
to load and launch. SPOT 
interval needed to load, DL 
the time interval to load 
HOUR, and the results are 
time sort array. This inf 
appropriate wave time sort 
time for the next event. 

g. Flow diagram 

See Figure D.2 

6. Rou tin e Name: S POTS 

a. Purpose 

This pair of ro 
deck spots that are avail 
processed by HELD (BEID) . 
is set and control is r 
(HR1D/EEID) . If spots are 
load ELTIME, is computed 
calling routine. DITIME i 
throughout the program. 

t. Type function 

Subroutine 

c. Calling routine 

SPOTS/WEIEEK is 



rs. If either insufficiency case 
ve time sort routine is called to 
processing. 

f enough carriers aa d spots to 
wave parmeters are set for ready 
S is called to compute the time 
TIME. Upon return to HELD (EEID) 
is added to the current time. 



placed 


in 


the 


appro 


priate wave 


ormation 


is 


then 


sent 


through the 


routine 


to 


determine 


the lowest 






utines determines the helc (well) 
able for use by the wave being 
If the spots are available a flag 
eturned to the calling routine 
available, the time necessary to 
then control is returned to the 
s a global variable and available 



s 

called by HRLD/EELD. 
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Figure D.2 Flow Diagram of HRLD/BRLD. 
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d. Called routines 
None 

e • Files created or used 



None 



f. Flow diagram 

Available but not contained in this n anual. 



7. Bou tin e Name: H1NCH/BINCH 



a. Purpose 



These routines launch a wave from ships and determines the 
time it will arrive at the landing site. It determines the 
number of deck (helc or surface) spots made available to 
subsequent waves and restores those spots. Also it reevalu- 
ates the loading time for a wave being loaded which had 
employed all of the remaining deck spots. 



BINCH 



k. Type function 
Subroutine 

c. Calling routines 

These routines are called from EXEC. 

d. Called routines 

HLNCH calls HSSORT, HCSORT, HNSORT, 
calls LSSORT, 1CS0RT, LNSOET. 

e. Files created or used 
None 



H LCD C K and 
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f. Narrative 



These routines are called from EX2 C when the 
time for launching the current wave is lowest among all 
ether classes of waves processed by MSORT. The subroutine 
first checks the class of the wave and then gets the first 
line cf serials in that wave to be carried. The number and 
type of carrier is obtained from the wave time sort array. 
A launch signal is placed in the serial lines for this wave 
and the load factor is extracted from the wave time sort 
array. The time interval, DT, from launch to arrival at the 
12 is computed using the various input data such as launch 
distance, carrier speed, load time, etc. 

Before setting the appropriate wav 2 time sort 
array (helos only) tc the arrival time at the LZ, a check is 
made to see if all the deck spots are in use by the current 
wave. If so, then the launching of the current wave would 
make available a certain number of spots for the next wave. 
If not all the spots are in use, the routine H10DCK is 
called to reevaluate the helicopter deck spot employment to 
determine how many spots will be available after launch of 
the current wave. 

Finally, the time to load is determined by 
adding DT tc the current time, HOUR, and setting the proper 
code for launch. A call to the appropriate wave time sort 
routine fellows these computations. Any deck spots used by 
the currnet wave are then restored upon launch. 

g. Flow diagram 

See Figure D.3 . 
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HINCH 

(Helo launch routine) 




Figure D. 3 



Flow Diagram of HLNCH/BLNCH 



8. Routine Name: HUNLD/BU NED 

a. Purpose 

These routines determine whether or not landing 
sites are still occupied by previous waves and if sc, delays 
the landing of the current wave until the pertinent zones 
are free to use. Also it calculates the length of time 
necessary for the current wave to unload (constrained by the 
size of the landing zone). 

b. Type function 

Subroutine 

c. Calling routines 

These routines are called from EXEC. 

d. Called routines 

H0N1D calls HSSORT, HCSORT, HN SORT and EUNLD 
calls ISSORT, LCSORT, ICSORT. 

e. Files created or used 

None 

f. Narrative 

These routines are called from EX2 C when the 

time for landing at the landing site is lowest among all 

ether classes of waves processed by MSORT. The subroutine 
first checks the class of the wave and then gets the first 

line of serial data in that wave to be processed. The 

number and type of carrier is obtained from the wave time 
sort array. 

Next, each line of serial data is examined to 
determine its destination. If one of the landing zones/ 
beaches is occupied by a prior wave, the wave time sort 
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array is set to await clearance of the landing site 
Control then returns to EXEC. 



If all of the 
computes the land ard unload 
time is added to the current t 
set to "return to ship"/ and 
routine is called. Finally, 
unload is computed and placed 
ly subsequent waves to determ 
site . 

g. Flow diagram 

See Figure D.4 . 

9 . B outin e Name : HRTN/ E RT 



zones are clear, HUNID/BUNLD 
time interval, ZE IME. That 
ime, HOUR, the event code is 
the appropriate wave time sort 
the time for completion of the 
in an array which is checked 
ine occupancy of the landing 



a. Purpose 

The purpose of these routines is to print a 
running total of the personnel ashore and th5 firepower 
ashore. Also HRTN calculates the time that the wave will 
return to the area of the shipping and hence be available 
for formation of 'subsequent waves. 

t. Type function 

Subroutine 

c. Calling routines 

These routines are called from EXEC. 

d. Called routines 

HRTN calls HSSORT, HCSORT, HNSORT ani ERIN calls 
1SS0RT, ICS CRT , INSORT. 
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Figure D. 4 Flow Diagram of HUNLD/B ONLD . 
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e. Files created or used 



None 

£. Narrative 

These routines are called from 2X3 C when the 
time for unload completion is lowest among all other classes 
of waves processed by MSORT . The class of wave is checked 
and the time interval necessary to return to the ship is 
calculated. 

The running totals of personnel and firepower 
ashore are tallied and sent to either the screen or the 
printer. The code indicating that unloading has been 
completed is set. Finally, the wave time sort array is 
updated with the time interval to arrive back at the ship 
and the appropriate wave class time sort subroutine is 
called. 

g. Flow diagram 

See Figure D.5 . 

10. Sou tin e Name : HARIV /BA BIV 

a. Purpose 

These routines return the carriers to their 
respective pools for use in forming subsequent waves after 
degrading the number of helicopters to reflect attrition 
losses. It also initiates the loading process for subse- 
quent waves. 

b. Type function 

Subroutine 
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HRTN 

(Helo wave clear L7 A return) 




Figure D.5 Flow Diagram of HRTN/BRTN. 
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c. Calling routines 



These routines are called from EXEC. 

d. Called routines 

HARIV calls HS SORT, HCSORT, HNSORC and EARIV 
calls ISSOE1, LCSORT, INSORT. 

e. Files created or used 

None 

f. Narrative 

These routines are called from EXEC when the 
time for arrival bach to the ship is the lowest among all 
other classes of waves processed by MSORT. The class of the 
wave is checked. If the returning wave is of the scheduled 
class, the number and type of carriers are placed in a 
carrier pool. At this point reduction of the returning 
carriers can be made by an attrition factor. Currently the 
model is set to place all of the returning carriers intc the 
pool. However, by changing line 4310 (helo) or line 6660 
(surface} in the program, the attrition can be set to what- 
ever value desired. 

Next, the returning wave time sort array is set 
to a high value to prevent that wave from being processed 
again. If the current wave is the last of the class, the 
appropriate wave time sort routine is called and control is 
returned tc EXEC. Otherwise, the routine finds the next 
wave to load and sets the proper codes. 

g. Flow diagram 

See Figure D.6 . 
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HARIY 

(Helo wave arrive back at ship) 




Figure D. 6 Flow Diagram of HARI V/BARIV . 
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11. Sou tin e Name: B EST A RT/EESTA RT 

a. Purpose 

This pair cf routines is used to restart timing 
for waves stalled by insufficient helicopter deck spots or 
landing craft well deck spots. If there are not enough 
deck/well spots available, this routine adjusts the time to 
load by adding a time increment onto the wave sort array. 
Essentially, this action delays the loading un: il a reass- 
essment determines the availibilty of spots for the wave 
which is next to load. 

These routines also serve a second function and 
that is to add an increment of time to the wave sort arrays 
when switching from one class to another. This short delay 
is designed as a break in the process to simulac e the shift 
from cne class of wave to another. 

b. Type function 

Subroutine 

c. Calling routines 

This routine is called from EXEC. 

d. Called routines 

RESTART calls HSSORT, HCSORT, HNSORT and 3 E ST ART 
calls ISSORT, LCSORT, LNSORT. 

e. Files created or used 

None 

f. Flow diagram 

Available but net contained in this aanual. 
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12. 5o u tine Name: STOCH/STCCL 



a. Purpose 



These routines initiate on-call waves to load 
after the final scheduled wave commenced to load. A signal 
is set by HELD (ERLD) when the last scheduled helo/surface 
wave has begun the leading activity. This routine then sets 
up the on-call waves to begin the loading process. If the 
signal for on-call waves to interrupt the scheduled waves 
has been set, this routine would return immediately to EXEC 
and not be used. 

b. Type function 
Subroutine 

c. Calling routines 

These routines are called from EXEC. 



d. Called routines 

These routines call EESTART/BESTAET. 

e. Files created or used 



None 

f. Flow diagram 

Available but not contained in this n anual. 

13. Routine Name: S TNSH /STNSL 
a. Purpose 

The purpose of these two subroutines is to start 
the ncnscheduled helo/surface waves after the final cn-call 
wave has commenced to load. A signal is set by HRLD ( EE ID) 
which tells the EXEC when the last on-call wave has started 
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loading. EXEC then calls this routine to set up the 
nonscheduled waves fcr loading. 

b. Type function. 

Subroutine 

c. Calling routines 

These routines are called by EXEC. 

d. Called routines 

These routines call RESTART/EESTART. 

e. Files created or used 

None 

f. Flow diagram 

Available but not contained in this nanual. 

1 4- Routine Name: S TSH/ STSL 

a. Purpose 

The function of these two routines is to restart 
scheduled waves that have been interrupted by on-call waves. 
If the flag is set to have on-call waves break into the 
scheduled wave sequence, the scheduled waves are temporarily 
halted by another routine. Once the designated cn-call 
waves are complete, the scheduled wave sequence resumes by 
the calling of STSH/S1SL. 

t. Type function 

Subroutine 
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c. Calling routine 
These routines 

d. Called routines 
These routines 

e. Files created o 
None 

f. Flow diagram 
Available but n 



15. Sou tin e Name: HCKLD 



a. Purpose 



This routine 

spot employment if the cur 
the spots. By doing this 
additional spots are availa 
indicate that either the ne 
be encountered caused by a 
enough spots are available 
loading of the next wave. 

b. Type function 
Subroutine 

c. Calling routine 
This routine is 



d. Called routines 



This routine ca 



s 

are called from EXEC. 



call HESTART/BESTAHT. 
r used 



ot contained in this aanual. 



reevaluates the helicopter deck 
rent wave does not occupy all of 
the model can determine how many 
ble for the next wave. This will 
xt wave can load or a delay will 
lack of deck spots. As soon as 
a flag will be set to initiate 



s 

called by EXEC. 



11s WSPOT. 
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e . Files created or used 
None 

f. Flow diagram 

Available but not contained in this n anual. 

16. Eou tin e Nam e: H10D C K 
a. Purpose 

HLODCK is a short routine which sets up addi- 
tional signals required to call HCKLD from EXEC. Those 
signals indicate whether there are any available deck spots 
left after the current wave has loaded. 

t. Type function 

Subroutine 

c. Calling routines 

This routine is called from HLNCH 

d. Called routines 
None 

e. Files created or used 
None 

f. Flow diagram 

Available but not contained in this n anual. 

17. Eou tin e Name : WSPOT 
a. Purpose 

This routine calculates the number of helo deck 
spots to be used by the current wave and then how many 
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remain for use by the next wave. This provides information 
required by HCKLD tc determine whether the nett wave can 
load cr has to delay until the current wave launches. 

t. Type function 
Subroutine 

c. Calling routines 

This routine is called by HCKLD. 

d. Called routines 
None 

e. Files created or used 
None 

f. Flow diagram 

Available but not contained in this manual. 

18. Eou tine Name: HA LTS H/H AL TS L 

a. Purpose 

These routines will stall the remaining sched- 
uled waves when they are interupted by on-call waves. If 
the flag is set to interrupt scheduled waves, this, routine 
is called prior to commencement of the on-call waves. Then 
once the on-call waves designated to interrupt have 
completed leading, a flag will be set to call S1SH/STSL 
which restarts the stalled waves. 

t. Type function 
Subroutine 
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c. Calling routines 

This routine is called from EXEC. 

d. Called routines 

None 

e. Files created or used 

None 

f. Flow diagram 

Available but not contained in this manual. 

F. DATA EASE DESCBIPTION 
1 • Fil e name: Landing Flan data fil e 

a. Purpose 

Input data is broXen down into three categories. 
The largest group of data is found in the landinj plan file. 
An example of this file is found in D.7 . The landing plan 
file contains the wave and serial data which is processed by 
the model. It has type of carriers, number of personnel, 
wave number, destination, etc. for each serial going ashore. 
Its purpose is to provide the model with the troop unit, 
equipment, and transportation information which will be 
'moved ashore' by the simulation. 

b. Format 

The landing plan file requires the manual 

construction of serials and assault waves in a specific 

format. Each line in the data file contains tf elve pieces 
of information which the model requires. These are 
explained as part of an example listed in the 'help* file 

under landing plan file (Section B) . This in: ormaticn is 
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1ST 


‘317, 


129, 


.23 


— er 

■-'U 


, 1878, A, A, 




■1 , 


R- 




,61 


5 


IS, 


348, 


128, 


23 


35 


, 1878, A, A, 


a. 


I, 


R- 




,61 


5 


IS, 


378, 


128, 


33 


35 


, 187S, A, A, 


s. 


I, 


R- 


*7 


,61 


5 


2S, 


317, 
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23 


35 
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a. 
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R- 


1 


,61 


5 


2S, 


348, 
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T 
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I, 
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5 
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8, 
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R- 


T 
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5 


3S , 
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70 
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9, 
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R- 


1 


, 12 


30 


3S, 


348, 


230, 


66, 


70 


, 3560, A, B, 


9, 


I, 


R- 




, 12 


30 


3S , 


383, 


290, 


66 , 


70 


, 3560, A, B, 


9, 


I. 


R- 




, 12 


30 


4S, 


1021 


, 50, 


948 


, 5 


476,37414, 


A, 


B, 


8, 


I 


,R- 


1 , 


4S, 


1 025 


, 50 , 


948 


, 5 


476,37414, 


A, 


B, 


8, 


I 


, R- 




4S, 


1030 


, 50 , 


°40 


,5 
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A, 


B, 


9, 


I 
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* 
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34 


, 94 1 , A , A , / 
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,R 
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I 


, R- 
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Figure D.7 Example of landing Plan Data File. 

also located on the same disk as the main program and is for 
use in constructing the data file. A copy of the ’help' 
file is located in Appendix E. 

c. Routines 

This file is called by the SETUP routine. 

d. Updating 

Each time a new landing plan is use d , all the 
parameters pertaining to the number of waves, the number of 
landing craft for scheduled and on-call waves, the name of 
the landing plan file, etc. must be changed to conform to 
the new data. If this is not accomplished an error will 

occur identifying the line in the code where an inconsis- 
tency was found. West of those values are found in the 

interactive mode which helps to prevent those type of 
errors. 
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2. Fi le name: 1-1 . DAT 

a. Purpose 

This data file contains parameter i alues which 
are not subject to constant change (see Figure D.8 ). The 
three major tables of this type are the helicopter time 
factors, boat time factors, and operational deck spot 

tables. The first two provide the expected times for 

various evolutions to utilize and the last gives the deck 
spots under various conditions. Tables XXII, XXIII, and 
XXIV list the data which are read from T-1.DAT. The purpose 
of this file is to read data into various arrays within the 
program which will be used to compute event times. 



C ' TYPE T-l.DAT 

9 , 7 , 4 ,?, 9 , 7 , 2 ,?,?, 7 , 2 , 9 , 7 , 4 , 4 . 7 , 7 , 4 , 2 , 7 , 7 , 4 , 2 , 7 , 1 . 1 , 1 , 1 , 1 , 1 , 1 . 1 - 1 . 1 , 1 . 1 1 « 1 , 2 , 

1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 . 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
O , 0 , 0 , 1 , 1 , 4 , 4 , 4 , 4 , 1 , 1 , 1 , 5 , a , 10 , 4 , 4 , 4 , 4 . 4 , 4 , 1 , 1 , 1 

120. 100. 100. 0. 9, "12, 11,20,20 

1 . 1 . 1 . 1 . 1 . 1.4. 1 0 . 1 0 . 10. 10. 10. 1 . 1 . 1 . 1 . 1 . 1.0. 10. 10. 10. 10. 10.0.5.5.5.5.5. 1 . 2 . 2 , 2 , 2 , 
2, 1,1, 1,1, 1,1, 1,1*1. 1,1.1 

c:* 



Figure D.8 Exaaple of Data File T-l.DAT. 



fc. Format 

The first two lines of the T-l.DAT file refer to 
Table XXIV . The data is listed in the file row by row from 
the table. Thus, the first twelve values come from row one 
of the table. The next line contains data from table XXII . 
It is listed in the same manner as Table XXIV except the 
first four values come from the first row of the table, 
line four lists three helicopter speeds then six landing 
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TABLE XXII 

Helicopter Time Factors in Hinutes 



Help yaye operation internal 

(1) Land in zone 0 

(2) Disenbark troops (cargo) 1 

(3) Takeoff/r endez vous from LZ 4 

(4) Maneuver/la nd ship 1 

(5) Refuel/embark troops (cargo) 5 

(6) Takecf f/rendez vous from ship 4 

(7) Maneuver/ land in LZ 4 

(0) Safety clearance time 1 



Type of Load 
Ext er nal 
0 
1 
4 
1 
8 
4 
4 
1 



Combined 

0 

4 

4 

1 

10 

4 

4 

1 



craft speeds. The vehicles for which these speeds are 
listed are: CH-53, CH-46, DH1N, LVT, LCM-6, LCM-8, LCU r LST r 
and L ARC . The last two lines of the file contain data from 
Table XXIII They are also listed by row. Section C of 
Appendix E contains the format for the T-1.DAT file. 



c. Routines 

This file is called by the SETUP routine. 

d. Updating 

Updating is not necessary unless different time 
factors afe desired fer use. 
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TABLE XXIII 

Boat Time Factors in Minutes 






Boat t TPe 



Boat wave operation 




ill 


icflri 


ic«r8 


LCD 


LSI 


LARC 


LCAC 


(1) 


Land at beach (or LZ ) 




1 


1 


1 


1 


1 


1 


1 


(2) 


Disenbark troops/load 






1o 


10 


10 


10 


10 


15 


(3) 


Rendezvous for return 




i 


i 


1 


1 


1 


1 


0 


m 


Deck tine to ship (well 


deck) 


0 


10 


10 


10 


1 0 


10 


10 


(5) 


Ref uel/e aba rk troops/loa 


d - 


0 


5 


5 


5 


5 


5 


15 


(6) 


Circle and rendezvous 




i 


2 


2 


2 


2 


2 


1 


(7) 


Land at beach 




i 


1 


1 


1 


1 


1 


1 


(9) 


Safety clearance tiae 




i 


1 


1 


1 


1 


1 


1 



3. li 2 J Name: In te ract ive /line input 

This data source is found within the progran itself as 
either a line of code or as an interactive guery. The data 
is of the type that nay be changed easily for various types 
of analysis. Although this source is not a file, it is the 
final means used to assign values to the remaining vari- 
ables. Once the first two files are prepared, the model is 
loaded into the computer and initiated. The program will 
guery the user to input data for the parameters which are 
most likely to change during any type of analysis. An 
alternative is to change the code within the program itself 
where seme cf these values are found. 

a'. Format 

Figure D.9 contains an example of the interac- 
tive input while the parameters that are requested are 
listed in the Table XXV . 
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TABLE XXIV 

Operational Deck Spots 



Shil type 
LHA (#1) 

LPE (#2) 

LSD (#3) 

LFL (#4) 

LSI (#5) 

Helo types; 



I nt einal 
Load ing 

A B C D 

9 7 4 9 

7 4 4 7 

1111 

2 112 

1111 



External 

Lo adi ng 

A B C D 

9 7 2 9 

7 4 2 7 

1111 

1111 

0 0 0 0 



Combii ation 
Loa ding 

A 3 C D 

9 7 2 9 

7 4 2 7 

1111 

1111 

0 0 0 0 



A =C H 4 6 1 B= CH53D C=CH53E D=Ui 1 N 



h. Routines 
None 

c. Updating 

Updating of this input data is relatively 
simple. The majority of parameters which would need to be 
changed will be requested by the interactive queries, 
ethers can be changed by a direct overwrite in the program- 
listing. 

G. SOURCE LISTING 
See Appendix F. 
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RUN 

» OF SERIAL LINES OF DATA FOR SCHED, ON-CALL, 4 NONSCHED HELO THEN SURFACED?, 23,0.60,0,0 
Sstup 19907 

» OF SHIFS BY TYPE (LHA,LPH,LSD,LPD,LST) :5,7, 1,9, 1 
1ST TURNAROUND SCHED HELO WAVE: 14 
i OF BEACHES AND » OF LANDING ZCNE3:4.,7 

HELO LAUNCH DISTANCE, BOAT LAUNCH DISTANCE, AND SHORE TO L2 DISTANCE: 50,2, 5 
LHOUR AND HH0UR:017000,0 

» OF WAVES IN ORDER SCHED, ON-CALL, NONSCHED HELO THEN SURFACE:23, 10,0, 19,0,0 
I OF HEL03 THAT CAN OCCUPY AN LZ AT ANY ONE TINE BY TYPE (CH46, CH53D, CH53E, UH1N) : 10,3,3, 16 
» OF CARRIERS BY TYPE (CH46 , CH53D, CH53E, UH IN, LVT, LCMS, LCT19, LCU, LST, LARC) : 156,30,32,0,249,52,3942, 23,0,12 
S OF SURFACE CRAFT THAT CAN OCCUPY A BEACH AT ANY ONE TINE BY TYPE (LVT, LCM6 ,LC«8, LCU, L3T, LARC) : A, 5, 4, 2, 1, 4 



INPUT DATA FILE NARE : LPE . DAT 
OUTPUT FILE NARE : TEST I 



Figure D.9 Example of Interactive/Line Input Data. 



H. GIOSSART OF- VARIABLES 

See Section F of Appendix E. 



I. BGDE1 TEST RESULTS 

See Chapter V of this thesis. 
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TABLE XI? 

Interactive Parameters 



Order of 

Seg ues t Param eter Name 



1 


TA 


2 


C A 


3 


NA 


4 


TS 


5 


CS 


6 


as 


7-12 


NOS (I) 


13 


TRNH1 


14 


NNB 


15 


NLZ 


16 


ASAEIS 


17 


LODDIS 


18 


LZDIS 


19 


HSWAVE 


20 


HCWAVE 


21 


HNWAVE 


22 


LSWAVE 


23 


LCWAVE 


24 


LNWAVE 


25-28 


HGF (I) 


29-38 


AT (I) 


39-44 


LGE (I) 



Definition 

Sched helo serial # 
On-call helo serial # 
Nonsched helo serial # 
Sched surf serial # 
On-call surf serial # 
Nonsched surf serial # 
Ship type (five t ypes) 
1st turnaround wive 
Number of beaches 
Number of IZs 
Helo launch disti nee 
LVT launch distance 
Shore to LZ dista nee 
Sched wave # 

On-: call wave # 

Nonsched wave # 

Sched wave # 

On-call wave # 

Nonsched wave # 

# helos max in Li 
by type (4 types) 

# carriers by tyD e 
(10 types) 

# boats max at baach 
by type (6 types) 
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APPENDIX E 
•HELP’ FILE 



A. TABLE OF CONTENTS 

E ’Help' File Listing 166 

C. Landing Plan File 167 

E. T-1.EAT File 163 

E. Input Parameters 169 

F. Subroutines 172 

G. Variable List 174 

H. Wave Clock Parameters 180 



E. GENEEAL 

The ’help’ file was de 
model with guestions that w 
tion. One can find the 
computer without having to 
the ’help’ file is found in 



veloped 


to a 


ssist a 


user o 


f the 


ill probably 


aris e 


during o 


pera- 


inf or mati on 


while 


still on 


the 


rely on 


a ma 


nual. 


A listi 


ng of 


Figure 


A. 1 . 
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10 INPUT "DO YOU DESIRE HELP"' (Y OR N)":A* 

20 IF A*="N" THEN GOTO 140 ELSE PRINT " VARIABLE LIST=1; PROGRAM INPUT DATA=2: T 

1 DATA=3" 

30 PRINT"WAVE DATA=4 ; SUBROUTINE LIST=5: EXIT=6" 

40 INPUT "ENTER DESIRED INFO #";X:ON X GOTO 50,60,70,00,90,140 

50 OPEN " I", 1 , "C: ALPHA. DAT": GOTO 100 

60 OPEN " I ", 1 , "C: INPUT. DAT" : GOTO 100 

70 OPEN " I " , 1 , "C : T 1 . DAT " r GOTO 100 

80 OPEN " I" , 1 , ” C : LAND AT A . DAT " : GOTO 100 

90 OPEN " I" , 1 , "C: SUBROU. DAT" 

100 PRINT:PRINT"TO SCROLL HIT 'Y f WHEN ’CONTINUE?* SHOWS. ANY OTHER Y EY TO EXIT 
": PR I NT: PR I NT 

110 FOR 1 = 1 TO 15 :LINE INPUT ttl,L*:IF LEFT* <L* , 3) ="END" THEN CLOSE ttl:GOTO 40 E 
LSE PRINT L* : NEXT 

120 INPUT "CONT INUE^" : Z*: IF Zt="Y" THEN GOTO 110 ELSE CLOSE ft 1: GOTO 40 
130 PRINT "BY" 

140 END 
Ok 



Figure E, 1 



Help File Listing, 
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C. LANDING PLAN FILE 



tape lend the 

THE FOLLOWING IS AN EXAMPLE OF THE DATA INPUT FOR ALL WAVE 
INFORMATION. THE FIRST LINE OF LETTERS AND NUMBERS IS AN ACTUAL LINE OF 
DATA FOUND IN THE LPE.DAT FILE. THE CORRESPONDING LETTERS WILL EXPLAIN 
EACH COLUMN OF DATA. 



**************************** 



1S>317> 128 >33*35* 1878* A* A>8* I>R-1?615 




A f B i C f D ?£ i F jGfHflfJj K 1 L 



THE NUMBER INDICATES THE WAVE * AND THE LETTER REFERS TO THE 
CLASS OF THE WAVE ( S=SCHEDULED > 0=0N-CALL* N=NON-SCHED ) * MORE 
THAN ONE LINE OF DATA (CALLED A SERIAL) CAN BE OF THE SAME WAVE 
NUMBER ♦ EACH SERIAL RUNS SEQUENTIALLY FROM 1 TO THE LAST SERIAL 
THE CLASS . 



RESERVED FOR FUTURE USE. 



c: 



NUMBER OF PERSONNEL IN PARTICULAR SERIAL OF A PARTICULAR WAVE 



b-f: reserved for future use. 



MODE OF TRANSPORTATION. ( A = HELQ ? S = SURFACE) 



h: 



CATEGORIES OF CARRIERS. A THROUGH K CORRESPOND TO 1-11. <1=CH46E 
2= : CH53D f 3 = CH53E f 4=UHINr 5=LVT> 6= LCM-6* 7=LCM-8, 8=LCU, 9=LST> 
1 0=LARC i 1 1 =LCAC ) . CARRIER TYFE MUST BE THE SAME FOR THE SAME 
WAVE. 



1 1 



NUMBER OF CARRIERS IN THE SERIAL 



j: 



TYPE LOAD ( 1 = INTERNAL i E = EXTERNAL ? C=COMB INAT ION ) 



KJ 



DESTINATION; (B-l THROUGH B-4 REFERS TO BEACHES M THROUGH *4 
AND R-l THROUGH R-4 REFERS TO LANDING ZONES *1 THROUGH #4) 



L*. WEAPONS UNIT VALUE ( UUV-F I REPOUER SCORE) 
END OF FILE 
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D 



1-1. EAT FILE 



THIS HELP FILE COVERS THE INPUT FILE CALLED DATA.T-1. THE 
INFORMATION CONTAINED IN DATA.T-1 DEALS KITH PERMANENT VALUES SUCH AS 
THE HELD TIME FACTORS, BOAT TIME FACTORS, ETC. THE DATA INPUT HILL BE 
EXPLAINED IN THE ORDER IT IS CALLED FOR BY THE PROGRAM. 



imiimiimimmmimmiimtmmitmmit 



PROGRAM 
LINE t 


VARIABLE 


DEFINITION 


LOCATION IN DATA.T-I 


60 


HOS (I, J,K) 


HELO DECK SPOTS 


LINES I St 2 


70 


HTF(I,J) 


HELO TIME FACTORS 


LINE 3 


90 


HSPD(J) 


HELO SPEEDS 


LINE 4 (1ST 3 DATA POINTS) 


100 


BSPD(I) 


BOAT SPEEDS 


LINE 4 (DATA POINTS 4-9) 


220 


LTF(I.J) 


BOAT TIME FACTORS 


LINES 5 St 6 



GENERAL INFO: 



'THE DATA IN PROGRAM LINE 40 IS LISTED ROM BY ROH FROM THE HELO 

DECK TABLE FOUND IN APPENDIX B. THE SUBSCRIPTS REFER TO VALUES AS 

FOLLOWS: I=TYFE SHIP, J=TYPE LOAD, K=TYPE HELO. THE FIRST TWELVE VALUES 
IN THE DATA FILE COMES FROM THE FIRST LINE OF VALUES IN THE TABLE. THE 
SECOND TWELVE FROM THE SECOND ROW AND SO ON. 

PR06RAM LINE 70 INPUTS DATA FROM THE HELO TIME FACTORS TABLE 
FOUND IN APPENDIX B. THE SUBSCRIPT I REFERS TO THE TYPE OF OPERATION 
AND J REFERS TO THE TYPE LOAD. THE FIRST ROH OF THE TABLE FORMS THE 

FIRST THREE VALUES IN THE DATA FILE. THE SECOND THREE THE SECOND ROW 

AND SO ON. 

HELO SPEED VALUES ARE FOUND IN LINE 90 OF THE FROGRAM. THE 
SUBSCRIPT REFERS TO THE GENERAL TYPE OF HELO. J=I IS A CH-53, J=2 IS 

A CH-44, AND J=3 IS A UH1N. THE SECOND GROUP OF DATA FOUND IN LINE 100 

IS THE BOAT SPEEDS. THE SUBSCRIPT REFERS TO THE TYPE OF BOAT. I=! IS 

AN LVT, 1-2 IS AN LCM-4, 1=3 IS AN LCH-0, 1=4 IS AN LCU, 1=5 IS AN LST, 

AND 1=6 IS A LARC. 

PROGRAM LINE 220 INPUTS THE BOAT TIME FACTORS. THE SUBSCRIPT I 
REFERS TO THE TYPE OF BOAT HAVE OPERATION AND J REFERS TO THE TYPE OF 
POAT. THE DATA FOUND IN THE FILE IS LISTED ROH BY ROW FROM THE TABLE. 

' THUS, THE FIRST ROW IN THE TABLE IS THE FIRST FOUR VALUES IN THE DATA 
FILE AND SO ON. 

END OF FILE 
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IHFU1 PABAHETEHS 



The following table identifies the input P3 rame te rs ; line number 
location t end e brief description of eech verieble. these variables 
must be initiated prior to running the model. 



Variable Line 



Name 


No ♦ 


Def ini ton 


ALADIS 


102 


Distance from ship to shore for helos <nm) 


ASADIS 


102 


Distance from ship to shore for LCAC (nm> 


AT(I) 


160 


Initial t of carriers th3t will participate in 
landing (I=type carrier) 


BSPD(I) 


100 


Boat speed (I=type boat! 1=LVT* 2=LCM-6> 3=LCM-3> 
LCU, 5 = LST t 6=LARC ) 


CA 


40 


Total f of lines of serial data for all on-call 
helo waves 


CHCUR 


112 


Time for starting first LCAC wave 


CLZBIS 


i °2 


Distance from shoreline to Icac LZ (nm) 


cs 


40 


Total t of lines of serial dst3 for 3 1 1 on-call 
surf waves 


CSPD 


102 


LCAC speed 


BLADIS 


102 


Distance boat must travel from ship to shore (nm) 


HCWAVE 


110 


Total # on-call helo waves 


HGF(I) 


142 


* helos by type that can land and unload 
simultaneously in LZ (I=helo type) 


HHOUR 


106 


Time for starting first helo wave 


HI 


112 


Very larSe value to prevent info to be considered 
in time sort (32000) 


HMUAVE 


110 


Total t non-sched helo waves 


HOLD 


112 


Same as HI (=16000) 
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H0S(I» J» 


K) 60 


Operational deck spots for helo ops (I=ship type ? 
J = type loading I internal ?e;:ternal f combination? 

K = t y p e helo) 


HSF'IK I ) 


90 


Helo speeds (I = t-ype load! l=internal? 2 = e>:ternal? 
3=combi nation) 


HSWAVE 


110 


Total $ sched helo waves 


HTF ( I ) 


70 


Table of helo time factors (see separate table) 


LCUAVE 


110 


Total * of on-call boat waves 


LGF( I) 


190 


t of boats by type that can unload simultaneously a 
numbered beach or LCAC LZ 


LHOUR 


106 


Time for starting first boat wave (excluding LCACs) 


LNWAVE 


110 


Total * of non-sched boat waves 


LSUAVE 


110 


Total t of sched boat waves 


LTF(I) 


220 


Boat time factors (I=boat wave operation? 
J=type boat) 


LZDIS 


102 


-Distance from shoreline to helo LZ (nm) 


HS 


40 


Total t of lines of serial data for non-sched 
surf waves 


NA 


40 


Total f of lines of serial data for non-sched 
helo waves 


NET 


90 


t boat types (5) 


NCLZ 


80 


* of lcac Iz's available to current landing plan 


NCI 


80 


t lcac types (1) 


NHT 


80 


$ of helo types(4) 


NLT 


80 


# of LVT types (1) 


NLZ 


90 


t of lz's available to current landing plan 


NMB 


80 


t of numbered beaches available to current landing 
plan 


NST 


90 


f shirs total from which can off load 
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NUS(I> 



62 

OCHCK 144 

OCHTAB(I) 144 

OCLCK 144 

SSPP(I) 102 



t of ships by type from which off-loading occurs 
( I = t y p e of ship? 1 = LHA ? 2=LPH* 3=LSD> 4=LPD* 5=LST) 

Signal identifying whether on-cell he 1 os ere to 
follow scheduled (OCHCK =0) or break into sched wave 
seauence (0CHCK=2)» If =2 then times must be 
specified for each on-call wave to commence 
operation 

Time for on-cell helo wsve to commence operation 
if not following sequence (I=wave ♦)* scheduled 
wsves ere deleted until on-cell operetions 
completed 

Signal identifying whether on-call boats are to 
follow scheduled (OCLCK = 0 ) or break, into sched wave 
seauence (0CLCK=2). If =2 then times must be 
specified for each on-call wave to commence 
operation 

Ship speed (I=type ship! 1 =LHA ? 2 = LPH» 3=LSD> 4 “ L F’ D > 
5=LST) 



TA 


40 


Total t lines of serialized data for sched 


helo waves 


TRNH1 


80 


The t of the first scheduled helo wave in 
turnaround wave 


first 


TRNS1 


80 


The t of the first scheduled surf wave in 
turnaround wave 


first- 


TS 


40 


Total t lines of serialized data for sched 


surf waves 


WDS ( I ) 


144 


Well deck spot array (I=type ship) 
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SUBROUTINES 



This file lists ell of the subroutines within the prodram 
code end their location by line number* The short 
description dives e dene re 1 summery of whet the routine 
does* More detailed desciptions of the meJor routines 
ere contained in the model documentation* 



Routine 

Name 


Line 
No . 


Description 


BARI V 


6630 


Arrive back ship-surf 


BESTART 


7930 


Restart timind for surf waves stalled for 
insufficient well deck spots 


BLNCH 


5400 


Launch-surf 


BRLD 


4990 


Loadind-su rf 


BRTN 


6160 


Deposit cardo-surf 


BUNLD 


5790 


Arrive/ unload lzr-surf 


EXEC 


2270 


Controls subroutines and timind of model 


HALTSH 


7900 


Stall remainind sched when on-call told to 
start before completion of sched air 


HALTSL 


8360 


Stall remainind sched when on-call told 
to start before completion of sched surf 


HARIV 


4270 


Arrive beck at ship-air 


HCKLH 


8390 


t 

Reevaluates deck spot employment if 
current wave does not occupy all spots 


HCSORT 


3480 


Sort routine for on-call air 


HLNCH 


3700 


Launch routine for air 


HLODCK 


8640 


Sets up recalculation and sidnals to call 
hckld from exec called from HLNCH 


HNSORT 


3550 


Sort routine for non-sched waves-air 


HR ID 


2550 


Load subroutine for air 



\ 
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HRTN 


4610 


Deposit- cargo sub rout i ne- a i r 




HSSORT 


3400 


Sort routine for sched sir 




HUNLD 


4060 


Unload at 1 z subroutine 




INITIAL 


470 - 


Initializes all arrays and sort 


routines 


LCSORT 


4B60 


Sort routine for on-call surf 




LNSORT 


4920 


Sort routine for non-sched surf 




LSSORT 


4B00 


Sort routine for sched surf 




MSORT 


3630 


Master sort- routine-computes ne>: 
from all other sort routines 


t event 


RESTART 


70B0 


Restart timing for waves stalled 
insufficient helo deck spots 


by 


SETUP 


10 


Initial input of data from data 
and within program 


files 


SPOTS 


3200 


Calculates * of spots to be used 
by HRLD 


-called 


STOCH 


7750 


Start on-call helo after final s 
wave began to load 


chedul ed 


STOOL 


7750 


Start on-call surface after final 
scheduled wave began to load 


STSH 


7860 


Restart scheduled waves after stall in 
HSLTSH (sir) 


STSL 


8320 


Restart scheduled waves after stall in 
HALTSL (surf) 


STNSH 


7820 


Start non -scheduled helo after final 
on-call wave began to load 


STNSL 


8280 


Start non-scheduled surface waves after 
final on-call wave began to load 


UELDEK 


5320 


Calculates ♦ spots to be used for surface 
craft (called by BRLD) 


WSPOT 


8710 


Calculates ♦ spots to be used by 
(celled by HCKLD) 


air 
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VARIABLE LIST 



The following table provides a listing of the program variables and 
their meanings* It contains all the major variables and most of the 
lesser variables* 



A 



ACOBE 



ALADIS 
AF’(I) 
ASADIS 
AT ( I ) 

BEGMSH 

BEGOCH 

BEGOCL 

BEGNSL 

BEGSH 

BEGSL 

BSPD(I) 

C 

CA 
CC 
. CC1 
CHOUR 
CLZBIS 
CS 

CSF’B 

DRAT 

BEST 

DLABAT 

DLADIS 

DLTIHE 



Activity! helo (l-losd*2=l3ijnchF3 = arrive L Z * 4 - deposit 
cargo* 5=arrive back ship)* surface (1-launch preboat*2= 
arrive beach * 3 = dePOsi t cargo* 4 = 3 r rive back ship(except 
lvt's)*5=reload from uell-deck) 

Code for next event! l = start loading wave f 2= launch loaded 
wave f 3 = reach destination(LZ)*4=complete unloading and 
start return t r ip * 5 = a r r i ve back ship 

Distance from ship to shore for heios(nm) 

t of carriers in pool for future use ( I - 1 y p e carrier) 

Distance from ship to shore for LCAC(nm) 

Initial ♦ of carriers that uill participate in landing 
(I=type carrier) 

=1 is flag to begin non-sched helo wave (subroutine EXEC) 
-1 is flag to begin on-call helo wave (subroutine EXEC) 

=1 is flag to begin on-call surf wave (subroutine EXEC) 

=1 is flag to begin non-sched surf wave (subroutine EXEC) 
=1 is flag to begin sched helo wave (subroutine EXEC) 

-1 is flag to begin sched surf wave (subroutine EXEC) 

Boat speed ( I = t y p e boat) 

Class of ua ve ( 1 ^sched * 2=on-call* 3-non sched) 

Total ♦ of lines of serial data for all on-call helo waves 
Preserves C 

Class of wave in subroutine HCKLD 
Time for starting first LCAC wave 
Distance from shoreline to LCAC LZ (nm) 

Total 1 of lines of serial data for all on-call surf waves 

LCAC speed over ground 

Tally 4 of boats into landing zone 

Destination 

Delay table 

Distance boat must travel from ship to shore (run) 

Time needed to load wave (subroutine HRLB) 

Deck spots available code ( 0 - n o * 1-yes) 
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DTI ME 


Time interval to unload LZ 


DTM(I) 


Value assigned from LTF(I?J) (boat time factors) 


DT 


Time interval for wave to return to ship 


E ASH 


Running total of the type load 


FCH 


t of first line of serials to be carried in on-call helo 
wave 


FCL 


♦ of first line of serials to be carried in on-call surf 
wave 


FMH 


$ of first line of serials to be carried in non-sched helo 
wave 


FML 


$ of first line of serials to be carried in non-sched surf 
wave 


FSH 


$ of first line of serials to be carried in sched helo 
wave 


FSL 


♦ of first line of serials to be carried in sched surf 
wave 


H1CLK(U»N) 


Sched subarray for helo info ( w = w a v e 1 1 n = wsve info -see 
separate explanation page) 


H2CLK'(U»N) 


On-call subarray for helo info (w=wave $? n=usve info -see 
separate explanation page) 


H3CLK ( W t N ) 


Non-sched subarray for helo info (w=wave #?n=wave info 
-see separate explanation page) 


HCWAVE 


Total $ on-call helo waves 


HEST(LDT.TYP) 


Temp array for same info as HOST ( LDT ? TYP ) 


HGF(I) 


♦ helos by type that can land and unload simultaneously in 
LZ ( I -he 1 o type) 


HHOUR 


Time for starting first helo wave 


HI 


Very large value to prevent info to be considered in time 


HNUAVE 


sort (32000) 

Total * n on -sched helo waves 


HOLD 


Same as HI (=16000) 


HOS(IrJrK) 


Operational deck spots for helo ops (I=ship typer J=type 
loading^ internal ? external r comb? K=type helo) 


HOST ( LDT t TYP ) 


Total t of all of deck spots (LDT=type loading ! internal r 
external? combination? TYP=type helo) 


HOUR 


Current time in minutes 


HSF'D(I) 


Helo speeds (I=type load) 


HSUAVE 


Total i sched helo waves 
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RTF ( I ) 


Table of helo time factors (see separate table) 


I 


Counter 


LATE 


Very larSe value to prevent info to be considered in time 
sort (17000) 


L1CLK ( Id * N ) 


Sched subarray for surf wave info ( Id = w a v e t * N = w a v e data- 
see separate explanation) 


L2CLK(ld*N) 


On-call subarray for surf wave info (ld = wave ♦ * N=wave 
data -see separate explanation 


L3CLK(!d*N) 


Non-sched subarray for surf wave info (U=wave $* N=wave 
data- see separate explanation 


LCWAVE 


Total t of on-call boat waves 


LDT 


Uave load factor ( l = inte rna 1 * 2=external> 3=coinbina t ion ) 


LGF(I) 


♦ of boats by type that can unload simultaneously at 
numbered beach or LCAC LZ 


LHOUR 


Time for starting first boat uave (excluding LCACs) 


LNWAVE 


Total * of non-sched boat waves 


LS 


Uave * = SSL ( N * 2 ) 


L3LJAVE 


Total * of sched boat waves 


LTF(I) 


Boat time factors ( I = b o a t uave operation* J = t y p e boat) 


LZDIS 


Distance from shoreline to helo LZ (run) 


M 


1st line of serial data to be carried by wave (M=FSH or 
FCH or FMH) 


MCLOCK ( I * N ) 


Master clock subarray (i=l to 6* l^sched helo* 2=on-call 
helu* 3=non-sched helo* 4=sched surf* 5=on-call surf* 6 = 
non-sched surf* n=wave data-see separate explanation) 


MODE 


A i r = 1 * s u r f = 2 


MS 


Total t of lines of serial data for non-sched surf waves 


NA 


Total * of lines of serial data for non-sched helo waves 


NET 


* boat types (5) 


NCAR(I) 


* carriers of type I 


NCLZ 


♦ of LCAC LZ's available to current landing plan 


NCT 


t LCAC types (1) 


NH 


J of nelos returning by type 


NHT 


1 of helo types(4) 


NLSET 


F 1 a 3 to signal h e 3 i n non -sched surf waves after on-call 
waves completed 
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NLT 


♦ of LUT types (1) 


NLZ 


t of LZ's available to current landing plan 


NNB 


♦ of numbered beaches available to current landing plan 


NS 


* of deck spots to be used for this wave (subroutine HRLD) 


NSA 


Counter for non-sched helo input 


NSS 


Counter for non-sched surf input 


NSSET 


Flag to signal begin non-sched helo waves after on-call 
waves completed 


NST 


♦ ships total from which can off load 


NUS(I) 


1 of ships by type from which off-loading occurs ( I = t y p e 
of ship, l=lha* 2=1 ph * 3 = 1 sd * 4=lpd* 5=lst) 


OA 


counters for on-call helo serials 


OCHCK 


Signal identifying whether on-call helos are to fallow 
scheduled (OCHCK =0) or break into sched wave sequence 
(0CHCK=2)*If = 2 then times must be specified for each on- 
call wave to commence operation 


OCHTAB ( I ) 


Time for on-call helo wave to commence operation if not 
following sequence (I=wave #)» Scheduled waves are 
delayed until on-call operations completed 


OCLCK 


Signal identifying whether on-call boats are to follow 
scheduled (OCLCK =0) or break into sched wave sea ue rice 
(0CLCK=2)» If =2 then times must be specified for each on- 
call wave to commence operation 


OCSET 


Signal 


OCTIM 


LiCLK(N*2) 1 ZTIME = time ne::t event plus time to unload 
on beaches 


OS 


Counters for on-call surf serials 


PAC 


$ and type(load) of deck spots in use by the current wave 
prior to launch 


PASH 


Running total of personnel ashore 


P ( I ) 


Pools of helos ( i = h e 1 o type) 


RMFRC 


Fractional availability of deck spots 


S A 


Counters for sched helo serialized data 


SCA(ItJ) 


Storage arrays for serialized input data for on-call helo 
waves* (J= following valuestO = UUV» 1 = w a v e ♦ * 2 = persanriel* 
3=type carrier* 4 = t of carriers* j = t y p e load* 

6 = desti nation* 7 = 1 a u n c h signal* 1 = 1 of serial line 
of data) 


SCH ( Iil) 


Wave t of each line of data for on-call helo wave 
( I=wavei ) 

waves completed 
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SCH ( I » 2 ) 

SCL (1*1) 
SCL( I f 2) 

SCS(If J) 

SEASH 
SFASH 
SNA ( I ? J ) 

SNH( If 1 ) 

S N H ( I ? 2 ) 

SSH(IfI) 
SSH ( I * 2 ) 

SNL(I>1> 
S N L ( 1 7 2 ) 

SNS ( 1 7 J ) 
ss 

SSA ( 1 7 J ) 



SSET 

SSL ( 1 7 1 ) 
SSL ( 1 7 2 ) 

SSPD 



First line of serialized data for each on-call helo wave 
( I = w a v e * ) 

Type carrier for on-call surf wave ( I = w a v e 4 ) 

First line of serialized data for each on-call surf wave 
(I=wave 4) 

Storage arrays for serialized input data for on-call surf 
waves* (J=following v a 1 ues ! 0 -UU V 7 l-uave 4? 2=pe rsonne 1 ? 

3= type carrier? 4 = 4 of carriers? 5= type load? 

6 = destinatiori7 7=launch signal! 1 = 4 of serial line 
of data) 

Total equipment ashore 

Running total of firepower ashore 

Storage arrays for serialized input data for non-sched 
helo waves* ( J = fol lowing values * 0 = UUV 7 l=wave *7 
2=personnel ? 3=type carrier? 4 = 4 of carriers? 5=type load? 
6 =destinat ion ? 7=launch signal? 1=4 of serial line 
of data) 

Wave 4 of each line of data for non-sched helo wave 
(I=wave 4) 

First line of serialized data for each non-sched helo wave 
( I=wave 4 ) 

Wave * of each line of data for sched helo wave (I=wave 4) 

First line of serialized data for each sched helo wave 
( I = wave 4 ) 

Type ’carrier for non-sched surf wave (I=wave 4) 

First line of serialized data for each non-sched surf wave 
(I=wave 4) 

Storage arrays for serialized input data for non-sched 
surf waves. (J = following values * 0 = UUV 7 l = wave 4? 

2 = pe rsonnel ? 3 = type carrier? 4 = 4 of carriers? 5 = t y p e 
load? 6=dest i na t i on ? 7=launch signal? 1=4 of serial line 
of data) 

Counters for sched surf serialized data 

Storage arrays for serialized input data for sched helo 
waves* ( J=f 0 1 lowing va 1 ues I 0 = U U V ? l = wave 4? 2= pe rsonne 1 ? 

3= type carrier? 4=4 of carriers? 5=type load? 

6=dest ination ? 7=launch signal? 1=4 of serial line 
of d a t a ) 

Flag for calling restart 

Type carrier for sched surf wave (I=wave 4) 

First line of serialized data for each sched surf wave 
( I = wave 4) 

Ship speed 
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SSS(I.J) 


Storage arrays for serialized input dat3 for s c h e d surf 
waves* ( J=f ol lowing va lues ! 0-WUV ? l=wsve \ ? 2-personnel? 
3 = type carrier? 4 = 4 of carriers* 5 = t y p e load? 

6 = des t inat ion ? 7=launch signal? I-4 of serial line 
of data) 


TA 


Total ♦ lines of serialized data for sched helo waves 


TRNH1 


The ♦ of the first scheduled helo wave in first turnaround 
wave 


TRNS1 


The t of the first scheduled surf wave in first turnaround 
wave 


TS 


Total $ lines of serialized data for sched surf waves 


VLAD IS 


Distance from launch to shore of landing craft 


U 


Counter for wave 4 


WB 


Well deck availability code (0=no? i=yes) 


WDS(I) 


Well deck spot array ( I = type ship) 


WDST 


Well deck spots total in the fleet 


WEST 


Well deck spots total in the fleet 


ULDT 


Load type being employed by current wave 


WNS 


t deck spots being eifi ployed by current wave 


USET 


Signal to call restart (=1) 


UTYP 


Type carrier being eni ployed by current wave 


UW 


Preserve w (wave 4) in subroutine HRLD 


WU1 


Signal used to setup (subroutine HCKLD) 


ZN ( I ) 


Time table for landing in zone (I) (time unload complete) 


ZONE ( I ) 


La n ding zone signal (I=LZ type) ( 1 = f r e e to land in) 


ZTIME 


Max time to unload over all landing zones in use 
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HAVE CLOCK PABAHEIEBS 



The wave clock parameters are -found in six arr 
There is an array 'for each class (3) and -for both 



and surface modes- They are of the -form H1CLK(W,N). 
The table below is a breakdown of the coding for N. 



N V a 1 u e 


Value and code for wave clock parameter 


0 

1 


Signal: 0=wave not loaded yet 

l=wave is or has loaded 

2=wave has offloaded cargo ashore 

Wave number 


f-n, 


Time of next event (future time) 

Code for next event: 

l=start loading wave 
2=1 aunch loaded wave 
3=reac h destination 

4=complete unload and start return ship 
5 = arri ve bad-: at ship area 


4 


Wave load factor (helo only): 
l=internal loading 
2=external loading 
3=comb i nat i on load 


5 


Node of tr ansport ai on (use by master clock): 
1 =hel o 
2=surface 


6 


Class of serial (master clock): 
1 =schedu 1 ed 
2=on-cal 1 
3=non-schedul ed 


6+1 


Number of helos of type I in wave 



END OF FILE 
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APPENDIX F 
PROGRAM LISTING 



3 * PROGRAM THAT WRITES TO FILE ; 27 AFR 34 : DATSH I F . B AS 

6 ’ SM RITACCO 

7 ’INITIAL INPUT ROUTINE LINES 0-470 
20 DEF FNXS=NIDS (A1S, INSTR(A1S, ", ")+l) 

30 DEF FNYS»STRS(L)+CHRS(4)+A1S 

40 DEFINT A-Y: INPUT"# OF SERIAL LINES OF DATA FOR SCHED , ON-CALL , h NONSCHED HELO 
THEN SURFACE : " , T A , CA , NA , TS , CS , MS 

42 DIN SCA ( C A , 7 ) , SSA(TA,7) , SSS(TS,7) , SC3(C3,7) , SNA(NA,7) , 3NS(NS,7) , H0S(5,3,4> 

44 DIN MUS (3) , HTF (8, 3) , LTF (8,6), HSFD (3) , BSDP (6) , DLABAT (4, 3,7), HOST (3,4) 

50 FRINT" Setup" ; FRE ( 9 ) : OFEN" I " , I, "T-l.DAT 

60 FOR 1=1 TO 5 : FOR J=1 TO 3:F0R K=1 TO 4: INFUTttl , HOS ( I . J , K) 

62 NEXT : NEXT : NEXT : INPUT"# OF SHIPS BY TYPE (LHA, LPH, LSD, LPD, LST) : " , NUS ( 1 ) , NUS (2) 

, NUS (3) , NUS ( 4 ) , NUS (5) 

70 FOR 1 = 1 TO 3 : FOR J=1 TO 3:INF'UT#1, HTF ( I , J ) : NEXT: NEXT 

80 NHT = 4 : NLT = 1 : NBT =5 : NCT =0 : NST =5 : TRNS 1 = 10:TRNS2=10: I NPUT "1ST TURNAROUND SCHED HE 
LO WAVE: " , TRNH1 

82 INPUT"# OF BEACHES AND # OF LANDING ZONES NNB , NLZ 
90 FOR J = 1 TO 3 : INPUT # 1 , HSPD(J):NEXT 

100 FOR 1 = 1 TO NLT +NBT +NCT : INPUT # 1 , BSFD ( I ) : NEXT RUN 

101 INPUT"HELO LAUNCH DISTANCE, BOAT LAUNCH DISTANCE, AND SHORE TO LZ DISTANCE:" 

, ALADIS, LODDIS, LZDIS 

102 NEXT : SSPD=20 : ASAD I S=8 : VLAD IS=2 : DLAD 13=8 : CL ZD I S= 1 
104 CSPD= 1 0 

106 INPUT"LHOUR AND HHQUR: " , LHOUR, HHOUR 

110 INFUT"# OF WAVES IN ORDER SCHED, ON-CALL, NONSCHED HELO THEN SURFACE HSWAV 
E , HCW AVE , HNWAVE , LSWAVE , LCWAVE , LNW AVE 
1 1 2 CHOUR= 1 7000 : LATE= 1 7000 : H 1=32000 : HOLD= 1 6000 : VS= 1 

114 VC =2: VN=3: DIM SSH (HSWAVE, 2 ) , SCH (HCWAVE, 2) , SNH ( HNWAVE , 2 ) , SSL ( LSWAVE , 2 ) 

120 DIN .3CL (LCWAVE, 2) , SNL (LNW AVE , 2) 

130 DIN H1CLK (HSWAVE, NHT+6) , H2CLK ( HCWAVE , NHT+6) , H3CLK (HNWAVE , NHT+6) 

132 DIN L1CLK (LSWAVE, NLT+NBT+NCT+6) , L2CLK (LCWAVE, NLT+NBT+NCT+6) 

134 DIN L3CLK (LNWAVE, NLT+NBT+NCT+6) , OCHTAB (HCWAVE) 

140 DIN AT (NHT+NLT+NBT+MCT) , AP < NHT +NLT+NBT+NCT ) , P (NHT +NLT + NBT + NCT) , HGF (NHT) 

142 DIN LGF (NLT+NBT+NCT) , WDS (NST) : INPUT"# OF HELOS THAT CAN OCCUPY AN LZ AT ANY 
ONE TINE BY TYFE (CH46, CH53D, CH53E , UH1N) : " , HGF ( 1 ) , HGF (2) , HGF (3) , HGF ( 4 ) 

144 WDS ( 1 ) =6: WDS (2) =2: WDS (3) =3: WDS (4) =5: WDS (5) =7: OCHTAB ( 1 ) = 13 
150 OCHCK=0 

180 INPUT"# OF CARRIERS BY TYFE (CH46, CH53D, CH33E, UH1N, LVT, LCN6, LCN8, LCU . LST , LAR 
C) : " , ATC1) , AT (2) , AT (3) , AT (4) ,AT(5) , AT (6) ,AT(7) , AT (3) ,AT(?) , AT (10) 

190 INPUT"# OF SURFACE CRAFT THAT CAN OCCUPY A BEACH AT ANY ONE TINE BY TYFE (LV 
T, LCN6, LCNS, LCU, LST, LARC) : " . LGF ( 1 ) , LGF (2) , LGF (3) , LGF (4) , LGF (5) , LGF (6) 

220 FOR 1=1 TO 3 : FOR J=1 TO 6:INFUT#1, LTF ( I , J ): NEXT : NEXT : CLOSE 1 
230 PRINT CHRS (12); 

232 ’IF EOF (2) THEN END 
240 ZZS="SETUP-A" 

250 A$="LFE" 

252 INPUT" INPUT DATA FILE NAME: ", INFILES 
260 OFEN" I" , 1 , INFILES 

262 INPUT "OUTPUT FILE NAME: " , OUTFILES 
270 SS=1 : 3A= 1 : 03=1 : 0A=1 : NSS=1 : NSA=1 

280 INPUT# 1 , AS : LINE INPUT # 1 , A 1 $ : IF LEFTS (AS, 1 ) ="E" THEN CLOSE 1 : NSA=NSA- 1 : GOTO 4 
70 

290 IF LEFTS (AS, 1) ="T"THEN 230 

300 FOR 1 = 1 TO 5: Z ( I ) =VAL (A1S ) : A1S=MIDS (Al$, INSTR (Alt,", ")+!): NEXT : Z (0) =Z (0) 

302 IF LEFT S ( A 1 S , 1)="S" THEN GOSUB 320 ELSE GOSUB 360 
304 TWUV ! =TWUV ! +WUV 
710 GOTO 280 

720 IF RIGHTS (AS, 1)="0"THEN 340 ELSE IF RIGHTS (AS , 1 ) ="N"THEN 350 
330 A1S=MIDS ( A 1 S, 3) : FOR J=0 TO 5 

332 Z (5) =0: Z (4) =0: S3S (SS, J) =Z (J) : NEXT: S55 (S3, 1 ) =VAL (AS) : K=7 
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334 FOR J = 1 TO 3 STEP 2:XS=FNXS 

336 GOSU B 400 : SS3 (S3, K) =L: K=K + 1 : NEXT : 33S ( SS , 0 ) =WUV : S3=SS+ 1 : RETURN 
340 A1S=MIDS (A IS, 3) :FQR J=0 TO 5 

342 Z (5) =0: Z (4) =0 : SC3 (OS, J) = Z CJ) : NEXT j 3CS (OS, 1 ) =VAL (AS) : K=3 
344 FOR J=1 TO 9 STEP 2:XS=FNXS 

346 GOSUB 400: SC3 (OS, K) =L: K=K>1 : NEXT: SC3 (OS, 0) =WUV: 0S=03+1 : RETURN 
350 A1S=MIDS (Al*,3) :FOR J=0 TO 5 

352 Z (5) =0: Z ( 4) =0: SNS (NSS , J ) =Z ( J ) : NEXT: SNS (NSS, l)=VAL(AS) : K=3 
354 FOR J = 1 TO 3 STEP 2: XS=FNXS 

356 GOSUB 400: SNS (NSS, K) =L: K=K+1 : NEXT : SNS (NSS , 0) =WUV: NSS=NSS+1 : RETURN 
360 IF RIGHTS(AS, 1)="0"THEN 380 ELSE IF RIGHTS (AS , 1 ) ="N M THEN 390 
370 A 1 S=M IDS(A1S,3) : FOR J=0 TO 5 

372 Z (5) =0: Z (4) =0: S3A (SA, J ) = Z (J) : NEXT : SSA (SA, 1 ) =VAL(AS) :K=3 
374 FOR J=1 TO 8 STEP 2:XS=FNXS 

376 GOSUB 400: SSA (SA, K) =L: K-K+l : NEXT: SSA (SA, 0 ) =WUV: SA=SA+1 : RETURN 
3S0 A 1 S=M I DS ( A 1 S , 3 ) : FOR J=0 TO 5 

382 Z (5) =0: Z (4) =0: SCA (OA, J) =Z ( J ) : NEXT: SCA (OA, 1 ) =VAL (AS) : K=3 
384 FOR J=1 TO 8 STEP 2: XS=FNXS 

386 GOSUB 400: SCA (OA, K) =L: K=K+1 : NEXT: SCA (OA , 0) =WUV: OA=OA+ 1 : RETURN 
390 A 1 S=M I DS ( A 1 S , 3) : FOR J=0 TO 5 

392 Z(5)=0: Z (4) =0: SNA (NSA, J ) =Z ( J > : NEXT : SNA (NSA , 1)=VAL(AS) : K=3 
394 FOR J=1 TO 9 STEP 2:XS=FNXS 

396 GOSUB 400: SNA (NSA, K) =L: K=K + 1 : NEXT: SNA (NSA, 0 ) =WUV: NSA=NSA+ 1 : RETURN 

400 IF K=4 THEN L=VAL ( A 1 S ) : A 1 S-FNXS : RETURN 

410 IF K=3 THEN L=ASC (LEFTS ( A 1 S , 1 ) ) -64 : A 1 S=FNX S : RETURN 

420 IF KC6 THEN 440 ELSE GOSUB 460 : XS=RIGHTS ( A1 S, 3> : IF XS='*B-1” OR XS = *'R-1“ THE 
N L= 1 ELSE IF X S= "B— 2" OR XS="R-2” THEN L=2 ELSE IF XS="B-3” OR XS="R-3" THEN L= 
3 ELSE L=4 
430 GOTO 450 

440 XS=LEFT S ( A 1 S , 1 ) : IF XS="C"THEN L=3 ELSE IF X S = " I ” THEN L=1 ELSE IF XS="E" THEN 
L=2 

450 A 1S=FNXS: RETURN 

460 WUVS=FNXS: A 1S=LEFT$ (A1 S, LEN (A1 S) -LEN (WUVS) -1 ) : WUV=VAL (WUVS ) : RETURN 

469 ’INITIALIZES TIME CLOCKS AND TIME CLOCK PARAMETERS LINES 470-1230 

470 OPEN OUTFILES FOR OUTPUT AS #2 
480 LLHQUR=LHQUR : HHHGUR=HHQUR 

490 T(1)=LLH0UR: T (2) =HHHOUR: T (3) =CCHOUR: FOR 1=1 TO 3: U ( I ) =4- I : NEXT: FOR J=1 TO 2: 
FOR 1=1 TO 3: IF T C I + 1 ) >T ( I ) THEN SWAP T ( I ) , T ( I +1 ) : SWAP U ( I ) , U ( I + 1 > 

500 NEXT : NEXT : FOR 1=1 TO 3 : T ( I ) =T ( I ) -T (3) : ON U(I) GOSUB 5 10, 520, 530: NEXT 

502 ERASE T: ERASE U:GOTO 540 

510 CCHQUR=T ( I ) : RETURN 

520 HHHOUP=T ( I ) : RETURN 

530 LLHQUR=T ( I ) : RETURN 

540 GOSUB 550: GOTO 2270 

550 ’ AT ( 1 ) =190: AT (2) =100: AT (3) =100: AT (4) =50: AT (5) =200: AT (6) =81 : AT (7) =64: TRNS1=10 
552 * TRNH 1 =7 : M=NHT+NLT +NBT +NCT : FOR 1 = 1 TO N: AP ( I ) =AT ( I ) : NEXT 
560 N=NHT+NLT+NBT+NCT:FOR 1=1 TO N: AP ( I ) =AT ( I ) s NEXT 
580 FOR 1=1 TO 6 : MCLQCK (1,2) =LATE: NEXT 

590 FOR 1=1 TO HSWAVE: H1CLK (1,2) =LATE: NEXT : FOR 1=1 TO HCWAVE 

592 H2CLK (1,2) =LATE: NEX T : FOR 1 = 1 TO HNWAVE: H3CLK (1,2) =LATE: NEXT 

594 FOR 1=1 TO LSWAVE : L 1CLK (1,2) =LATE : NEXT : FOR 1=1 TO LCWAVE: L2CLK (1,2) =LATE 

600 NEXT: FOR 1=1 TO LNWAVE: L3CLK (1,2) =LATE: NEXT 

610 FOR K= 1 TO NLZ : ZN (K ) =0 : NEXT 

620 GOSUB 1630 

630 J=HHHOUR 

640 FOR N= 1 TO TRNH 1-1 

650 H1CLK(N, 1 ) =N : H 1 CLK ( N , 2) =J : H 1 CLK (N , 3) = 1 : H 1 CLK (N . 5 ) = 1 : H 1 CLH (N , 6 ) = 1 : J= J+ i 
660 NEXT: GOSUB 1290 
670 IF OCHCK'2 THEN 710 
680 FOR 1=1 TO HCWAVE 
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690 H2CLK ( I , 1 ) = I : H2CLK ( I , 2) =0CHTAB ( I ) +HHH0UR: H2CLK ( I , 7 ) = 1 : H2CLK < I , 3) =1 
692 H2CLK ( I , 6) =2 

700 NEXT : FCH= 1 : G03UB 1760: GOTO 720 
710 GOTO 720 

720 L=NLT+NBT+NCT: L1CLK (1,2) =LLHOUR 
770 FOR N— 1 TO LSWAVE 

740 L1CLK (N, 1) =N: L1CLK (N, 3) =2: LI CLK (N, 5) =2: L1CLK (N, 6) =1 

750 L3=S3L (N, 2) : FOR 1=1 TO L:NCAR ( I) =0: F < I+NHT) =AP ( I+NHT) : FOR K=1 TO NNB 
752 DBAT ( I , K) =0 : NEXT : NEXT 

760 IF LS=T3 THEN 320 ELSE IF SSS(L3, 1)CN THEN 320 ELSE I=SSS ( LS , 7) -NHT 
770 IF I < =0 THEN PR I NT " NO NO DATA'* :STOF 

780 IF P ( I+NHT) >=SS3 (LS, 4 ) THEN 310 ELSE J =SSS (LS , 1 ) : L1CLK ( J , 2) =HOLD 
790 IF SSSCLS-l, l)OSSS (LS, 1 ) THEN 300 ELSE LS=LS-1 : SSS (LS, 7) =0: GOTO 790 
300 FSL=LS: PRINT ,, LS M ; LS; ” - Insuf f 1 ci ent Scheduled landing craf t " : STOP 
310 NCAR ( I ) =NCAR ( I ) + SSS (LS, 4) : SSS (LS, 7) =1 : DEST=SSS (LS, 6) 

312 DBAT ( I , DEST) =DBAT ( I , DE3T) +S33 (LS, 4) : P (I+NHT) =P (I+NHT) -SSS (LS . 4) : LS=LS+1 
314 GOTO 760 

320 FOR 1 = 1 TO L: AP ( I+NHT) =P ( I+NHT) :L1CLK (N, 1+6) =NCAR ( I ) : IF NCAR ( I ) < >0 THEN I I = I 
330 NEXT 

340 FOR K= 1 TO NNB: DTIME (K) =0: FOR 1=1 TO L 
350 IF DBAT ( I , K ) < =0 THEN 330 
360 DBAT ( I , K) =DBAT ( I , K) -LGF ( I ) 

370 DTIME (K)=DT I ME CK) +LTF (1,1) +LTF (2,1) +LTF (3, I ) : GOTO 350 
330 NEXT: NEXT 

390 ZT I ME=0 : FOR K=1 TO L:IF DT I ME (K ) >ZT I ME THEN ZT I ME=DT I ME (K ) 

900 IF N=LSWAVE THEN 0CTIM=L1CLK (N, 2) +ZTIME: GOTO 950 
910 NEXT: IF N=LSWAVE THEN OCT I M=L 1 CLK (N , 2 > + ZT I ME: GOTO 950 
920 LI CLK (N+ 1,2) =L1CLK(N, 2) +ZTIME 

930 IF SSS (LS, 2) CO THEN 940 ELSE L1CLK (N+l , 2) =HOLD: GOTO 950 
940 NEXT 

950 IF NCT =0 THEN PR INT“Boat pool " : AP ( 5 ) ; AP (6 ) ; AP (7) ; AP ( 3 ) ; AP ( 9 ? : AF ( 1 0 ) ELSE PR I 
NT “Boat pool " ; AP (5) : AP (6 ) : AP (7) ; AP (3) ; AP (9) ; AP ( 1 0) ; AP ( 1 1 ) 

952 GOSUB 1520 

956 IF CS=0 THEN FCL=H I : FML=H I : GOTO 1226 
960 IF SC5(1,1)=0 THEN FCL=H I : FML=H I : GOTO 1226 
970 L=NLT+NBT+NCT : L-2CLK ( 1 , 2) =OCTIM 
930 FOR N= 1 TO LCWAVE 

990 L2CLK (N, 1 )=1:L2CLK(N, 3) =2: L2CLK ( N , 5) =2: L2CLK (N, 6) =2 

1000 LC=SCL (N, 2) : FOR 1=1 TO L: NCAR ( I ) =0 : P ( I +NHT) =AP ( I +NHT ) : FOR K=1 TO NNB 
1002 DBAT ( I , K) =0: NEXT: NEXT 

1010 IF LC=CS THEN 1100 ELSE IF SCS(LC,1)CN THEN 1100 

1020 I»SCS(LC,3)-NHT: IF I<=0 THEN LFR I NT “NO DATA " : GOTO 1226 

1030 IF P ( I+NHT) >=5CS (LC, 4) THEN 1090 

1040 J=SCS (LC, 1) :L2CLK(J,2)=H0LD 

1050 IF SCS<LC-l, 1) OSCS (LC, 1) THEN 1070 

1060 LC=LC-1 : SCS (LC, 7) =0: GOTO 1050 

1070 FCL=LC: LPR INT"LC" ; LC; " Insufficient on-call craf t " 

1080 GOTO 1230 

1090 NCAR ( I) =NCAR ( I ) +SCS (LC, 4) :F ( I+NHT) =P (I+NHT) -SCS (LC, 4) : SCS (LC, 7) =1 
1092 DEST =SCS (LC , 6) : DBAT ( I , DEST) =DPAT ( I , DEST) +SCS(LC, 4) :LC=LC + 1 : GOTO 1010 
1100 FOR 1=1 TO L:AP ( I+NHT) =P ( I+NHT) :L2CLK(N, 1+6) =NCAR ( I ) 

1102 IF NCAR (I) CO THEN II = I 
1110 NEXT 

1120 FOR K= 1 TO NNB: DTIME (K) =0: FOR 1=1 TO L 
1130 IF DBAT ( I , K) ! =0 THEN 1160 
1 1 40 DBAT ( I , K ) =DBAT ( I , K ) -LGF ( I ) 

1150 DTIME (K) =DT IME (K ) +LTF ( 1 , I)+LTF(2, I)+LTF(3, I) : GOTO 1130 
1160 NEXT .-NEXT 

1170 ZTI ME=0: FOR K=1 TO L: IF DTIME (K) ' ZT IME THEN ZT IME=DT I ME (K ? 

1130 NEXT 
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1132 IF N=LCWAVE THEN MST I M=L2CL1 CN , 2 ) + ZT I ME : GOTO 1220 
1 170 L2CLK (N+l ,2) =L2CLK (N, 2) +ZTIME 

1200 IF SC3(LC.2) :0 THEN 1210 ELSE L2CLK (N + 1 , 2) =HQLD : GOTO 1220 

1210 NEXT 

1220 IF NCT =0 THEN FRINT 
1222 GOSUB 1530 

1226 IF MS=0 THEN FML=HI : GOTO 1240 

1230 IF SNS (1,1) =0 THEN FML=H I : L3CLK (1,2) =LATE 

1240 FOR 1 = 1 TO N3T : WDST =UIDST +WDS ( I ) fcNUS ( I ) : NEXT : WEST =WDST 

1250 PASH=0: SEASH=Cf: SFASH=0: FOR 1 = 1 TO NST : FOR J = 1 TO 3: FOR K=1 TO NHT 

1 252 HOST ( J , K> =HOST ( J , K) +H03 ( I , J, K> *NUS ( I ) : HEST ( J , K) =HOST ( J , K) 

1254 NEXT: NEXT: NEXT: FOR 1 = 1 TO 6: IF l '.-Z THEN MCLOCK ( 1 , 5 ) = 1 ELSE MCLOCK ( 1 , 5 ) =2 
1260 IF 1=1 OR 1=4 THEN MCLOCK ( I , 6 ) = 1 ELSE IF 1=2 OR 1=5 THEN MCLOCK ( I , 6 ) =2 ELSE 
MCLOCK (1,6) =3 
1270 NEXT 
1272 DS= 1 
1230 RETURN 

1289 ' 

1290 TIME=LATE: FOR W= 1 TO HSWAVE 
1300 IF H1CLK (W, 2) >=TIME THEN 1320 

1310 TIME=H1CLK (W, 2) : AC0DE=H1CLK (W, 3) :HWAVE=W 
1320 NEXT 

1330 MCLOCK (1,2) =TIME: MCLOCK (1,1) =HWAVE : MCLOCK (1,3) =ACODE: H1CLK (HWAVE, 2) =HOLD 

l 332 MCLOCK ( 1 , 5 ) = 1 : MCLOCK ( 1 , 6 ) = 1 

1340 IF AC0DE=6 THEN H 1 CLK (HWAVE, 2) =LATE 

1350 RETURN 

1359 ' 

1360 ' FR I NT "HCSORT " 

1370 T I ME=LATE : FOR W= 1 TO HCWAVE 

1330 IF H2CLK (W, 2) ' =TIME THEN 1400 

1390 T I ME=H2CLK (W, 2) : AC0DE=H2CLK (W, 3) : HWAVE=W 

1400 NEXT 

1410 MCLOCK ( 2 , 2 ) = T I ME : MCLOCK (2,1) =HWAVE : MCLOCK (2,3) =AC0DE : H2CLK ( HWAVE , 2) =HOLD 

1412 MCLOCK (2, 5) =1 : MCLOCK (2, 6) =2 

1420 IF AC0DE=6 THEN H2CLK ( HWAVE , 2) =HOLD 

1430 RETURN 

1439 ' 

1440 ? FR INT"HNSORT*’ 

1450 T I ME=LATE : FOR W=1 TO HNWAVE 

1460 IF H3CLK(l*J,2) =TIME THEN 1480 

1470 T I ME=H3CLK (W, 2) : AC0DE=H3CLK (W, 3) : HWAVE=W 

1430 NEXT 

1490 MCLOCK (3,2) =T I ME: MCLOCK (3,1) =HWAVE : MCLOCK (3,3) =ACODE: H3CLK (HWAVE, 2) =HOLD 

1492 MCLOCK (3, 5) =1 : MCLOCK (3, 6) =3 

1500 IF AC0DE=6 THEN H3CLK (HWAVE , 2) =LATE 

1510 RETURN 

1519 ' 

1520 * PR I NT”LS30RT " 

1530 TIME=LATE: FOR W=1 TO LSWAVE: IF LI CLK ( W, 2) : =TIME THEN 1550 
1540 T I ME =L 1 CLK ( W , 2 ) : AC0D£=L1 CLK ( W , 3) :LWAVE=W 
1550 NEXT 

1 560 MCLOCK ( 4 , 2 ) = T I ME : MCLOCK (4,1) =LWAVE : MCLOCK (4,3) =ACODE : L 1 CLK ( LWAVE , 2 ) =HOLD 
1562 MCLOCK (4,5) =2: MCLOCK ( 4, 6) = 1 : IF AC0DE=6 THEN LI CLK (WAVE , 2) =LATE 
1570 RETURN 
1579 ' 

1530 ' FRINT"LCSORT" 

1590 T I ME=LATE : FOR W= 1 TO LCWAVE:IF L2CLK ( W , 2 ) • =T I ME THEN 1610 
1600 T I ME =L2CLK ( W , 2 ) : AC0DE=L2CLK (W,3) : LWAVE=W 

1610 NEXT: MCLOCK (5, 2) =T IME: MCLOCK (5, 1 ) =LWAVE : MCLOCK (5,3) =ACODE : L2CLK. (LWAVE, 2? =HC 
LD 
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1612 MCL0C1 (5, 3) *2: M CLOCK (5, 6) =2: IF AC0DE=6 THEN L2CLK ( LWAVE , 1 
1620 RETURN 
1628 ' 

162? * COMPUTES ARRAYS FOR WAVE #*3 AND SERIAL # OF 1ST SERIAL 

1630 IF TA=0 THEN 1680 ELSE W= 1 : SSH (l*J, 2) = 1 : S5H (W, 1 ) =Ws IF TA=0 

1640 FOR 1=1 TO TA: IF SSA (1,1) =W THEN 1670 

1650 IF SSA (1,1) =0 THEN 1680 

1660 W = W 1 : SSH (W, 2) =1 : SSH (W, 1 ) =W 

1670 NEXT 

1680 IF CA=0 THEN 1730 ELSE W= 1 : SCH ( W, 2) - 1 : SCH (W , 1 ) =W: IF CA=0 

1690 FOR 1=1 TO CA : I F SCA (1,1) =W THEN 1720 

1700 IF SCA (1,1) =0 THEN 1730 

1710 W=W+ 1 : SCH ( W , 2 ) = I : SCH ( W , 1 ) =W 

1720 NEXT 

1730 IF NA=0 THEN 1780 ELSE W= 1 : SNH (W, 2) = 1 : SNH (W, 1 ) =W: IF NA=0 

1740 FOR 1=1 TO NA: IF SNA ( I , 1 ) =W THEN 1770 

1750 IF SNA (1,1)' =0 THEN 1780 

1760 W=W+1:SNH(W,2)=I:SNH(W, 1 ) =W 

1770 NEXT 

1780 IF TS=0 THEN 1830 ELSE W=1 : SSL (W. 2) =1 : SSL (W, 1 ) =3SS ( 1 , 3) 

1790 FOR 1=1 TO TS: IF SSS (1,1) =W THEN 1820 

1300 IF SSS(I,1)=0 THEN 1830 

1810 W=W+ 1 : SSL ( W , 2 ) = I : SSL (W , 1 ) =SSS (1,3) 

1820 NEXT 

1830 IF C3=0 THEN 1880 ELSE W=1 : SCL (W , 2) = 1 : SCL (W , 1 ) =SCS ( 1 , 3) 

1840 FOR 1=1 TO CS: IF SCS (1,1) =W THEN 1370 

1850 IF SCS(I,1)=0 THEN 1880 

1860 W=W+ 1 : SCL (W, 2) =1 : SCL ( W, 1 ) =SCS (1,3) 

1370 NEXT 

1930 IF MS=0 THEN 1930 ELSE W= 1 : SNL ( W , 2 ) = 1 : 3NL ( W , 1 ) =SNS (1,3) 

1390 FOR 1=1 TO NS: IF SNS ( I , 1 ) =W THEN 1920 

1900 IF SNS (1,1) =0 THEN 1930 

1910 W=W+ 1 : SNL (W, 2) =1 : SNL (W, 1 ) =SNS (1,3) 

1920 NEXT 
1930 RETURN 
193? ' 

1940 * EXEC SUBROUTINE-CONTROLS TIMING AND EXECUTION OF MODEL 

2270 IF HQUR=LATE THEN CLOSE #2: STOP ELSE PTIME=32000 

2230 IF PT IME .HOUR THEN CLOSE #2: STOP 

2290 IF CC 1 < : 0 THEN GOSUB 3390 

2300 IF BEGN5H= 1 THEN GOSUB 7820 

2310 IF BEGOCH= 1 THEN GOSUB 7750 

2320 IF BEGSH= 1 THEN GOSUB 7960 

2330 IF WSET'O THEN GOSUB 7080 

2340 GOSUB 3670: IF M0DE=2 THEN 2450 

2350 IF A>1 THEN 2370 

2360 GOSUB 2550: GOTO 2270 

2370 IF A >2 THEN 2390 

2380 GOSUB 3700: GOTO 2270 

2390 IF A >3 THEN 2410 

2400 GOSUB 4060: GOTO 2270 

2410 IF A; 4 THEN 2430 

2420 GOSUB 4610: GOTO 2270 

2470 IF A3 THEN STOP 

2440 GOSUB 4270: GOTO 2270 

2430 IF AM THEN 2470 

2460 GOSUB 4990: GOTO 2270 

2470 IF AM THEN 2490 

2430 GOSUB 3400: GOTO 2270 

2490 IF A\7 THEN 2510 



) =LATE 

IN WAVE 
THEN 1680 

THEN 1730 

THEN 1780 
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2500 G03UB 5790: GOTO 2270 
2510 IF A 4 THEN 2530 
2520 GOSUB 6 160! GOTO 2270 
2570 IF A 5 THEN STOP 
2540 GOSUB 6630 : GOTO 2270 
254? ' 

2550 ’* HRLD 

2560 FOR 1 = 1 TO NHT : NCAR ( I ) =0: P ( I ) =AP ( I ) : NEXT : LDT =0 
2570 IF CM THEN 2780 
2530 M=S3H(W,2) :W=SSA(M, 1) 

2590 IF DSOO THEN 2610 ELSE H1CLK (W, 3) =1 : HlCLK (W, 2) =H0UR+10: FSH=S3H (W, 2) 

2600 GOSUB 3400: RETURN 

2610 IF SSA(M,1)CW THEN 2630 

2620 I =SSA (M , 3) 

2630 IF P(I))=SSA(M,4)THEN 2650 

2640 HlCLK (W , 1 ) =W: HlCLK <W, 2) =H0UR+10: HlCLK (W, 3) =1 : GOSUB 3400: RETURN 
2650 PCI) =P Cl) -SSA (M, 4) : NCAR ( I ) =NCAR ( I ) +S5A (M, 4) 

2660 IF SSA (M, 5); LDT THEN LDT=SSA(M,5) 

2670 IF M=TA THEN 2630 ELSE M=M+1:G0T0 2610 

2680 HlCLK (W , 1 ) =W: HlCLK (W, 3) =2: HlCLK ( W, 4) =LDT : FOR 1=1 TO NHT 

2682 AP ( I ) =P ( I ) : HlCLK <W, I+6)=NCAR(I) : NEXT 

2690 FOR 1 = 1 TO NHT: IF NCAR < I ) < >0 THEN I I = I 

2700 NEXT 

2710 HlCLK (W,0)=1 

2720 GOSUB 3200 

2730 IF NS=0 THEN DLTIME= 10: HlCLK (W, 3) =1 : HlCLK <W, 0) =0 
2740 IF DS=0 THEN CC = 1 : WW=W: WSET =0: WTYP= 1 1 : WNS=NS : WLDT =LDT 

2750 HlCLK (W, 2) =HOUR+DLT IME : FSH=N: IF W=HSWAVE AND 0CHCK=0 THEN OCSET = 1 : BEGOCH= 1 

ELSE IF W=HSWAVE THEN NSSET = 1 : BEGNSH= 1 

2760 GOSUB 3400 

2770 RETURN 

2730 IF 02 THEN 3010 

27°0 MC=SCH(W,2) :W=SCA(MC, 1) 

2800 IF 0CHCK=2 AND SSET=0 THEN GOSUB 7900 

2810 IF DS O O THEN 2830 ELSE H2CLK (W, 3) =1 : H2CLK <W, 2) =H0UR+10: FCH=3CH ( W, 2) 

2920 GOSUB 7430: RETURN 

2370 IF SCA(MC,l)OW THEN 2900 

2340 I=3CA(MC, 3) 

2350 IF P(I) =SCA(MC,4) THEN 2370 

2360 H2CLK (W, 1) =W: H2CLK (W, 2) =HOUR+ 1 0 : H2CLK <W, 3) =1 : GOSUB 3480: RETURN 
2970 PCI) =P Cl) -SC A ( MC , 4 ) : NCAR ( I ) =NCAR ( I ) +-SCA ( MC , 4 ) 

2380 IF 3CA (MC, 5) LDT THEN LDT=3CA (MC , 5) 

2390 IF MC=CA THEN 2900 ELSE MC=MC+1:G0T0 2330 

2900 H2CLK ( W , 1 ) =W : H2CLK ( W , 3) =2: H2CLK ( W , 4 ) =LDT : FOR 1=1 TO NHT 

2902 AP ( I ) =P ( I ) : H2CLK ( W, H-6)=NCAR(I) : ME X T 

2910 FOR 1=1 TO NHT: IF NCAR ( I )< / 0 THEN II=I 

2920 NEXT 

2970 H2CLK ( W, 0) = 1 

2940 IF W=HCl‘JAOE AND 0CHCK=2 AND SSET= 1 THEN SSET = 2: BEGSH= 1 
2950 GOSUB 3200 

2960 IF NS=0 THEN DLT I MEMO: H2CLK (W, 3) = 1 : H2CLK (W, 0) =0 

2970 IF DS=0 THEN CC = 2: l*JW=W: WSET=0: WTYP = I I : WNS=NS: WLDT=LDT 

2930 H2CLK (W. 2) =HGUF:+DLTIME: FCH=MC: IF WO HCWAVE THEN 3000 

2990 IF 0CHCK = 2 AMD FSHOHI THEN SSET = 2 : BEGSH= 1 ELSE NSSET= 1 : BEGNSH= 1 

3000 GOSUB 3430: RETURN 

7010 IF FMH ' =H I . THEN STOP 

3020 MN=SNH (W. 2) : W=SNA <MN. 1 ) 

3030 IF DS /O THEN 3050 ELSE H3CLK ( W . 3) = 1 : H3CLK ( W . 2 ) =HOUF:+ 10 : FMH=SNH ( W , 2 ) 

3040 GOSUB 7550: RETURN 

7050 IF SNA(MN.l) W THEN 3110 
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3060 I =SNA ( MN , 3 ) : I F P C I ) -SNA < Mr J , 4 ) THEN 3030 

3070 H3CLK(W, 1 ) = W : H3CLK ( W , 2 ) =H0UR+ 1 0 : H3CLK ( W , 3 ) = 1 : GOSUB 3S50: RETURN 
3030 F ( I ) =P ( I ) -SNA (MM, 4) : NCAR ( I ) =NCAR ( I ) +3NA (MN, 4) 

3090 IF SNA (MN, 5 ) LDT THEN LDT =SNA ( MN , 3 ) 

3100 IF MN=MA THEN 3110 ELSE MN=MN+ 1 : GOTO 3050 

3110 H3CLK(W, 1 ) = W: H3CLK (W. 3) = 2: H3CLK (W, 4)=LDT 

3120 FOR 1=1 TO NHT: AF ( I ) =P ( I ) : H3CLK (W, 1+6) =NCAR ( I ) : NEXT 

3130 FOR 1 = 1 TO NHT: IF NCAR (1)00 THEN 11 = I 

3140 NEXT 

3130 H3CLK (W, O) =1 

3160 GOSUB 3200 

3170 IF NS=0 THEN DLTIME= 10: H3CLK (W, 3) = 1 : H3CLK (W, 0) =0 
3180 IF DS=0 THEN CC=3: WW=W: WSET=0 : WTYP= I I : WNS=NS : WLDT=LDT 
3109 * 

3190 H3CLK (W, 2) =HOUR+DLTIME: FMH=MN: GOSUB 3550: RETURN 

3200 IF HOUR 1500 THEN CLOSE tt2:ST0P 

3210 J=0: FOR 1=1 TO NHT 

3220 IF NCAR (I) =0 THEN 3240 

3230 J=J+1:TYP=I 

3240 NEXT 

3250 IF J>1 THEN 3260 
3260 

3270 NS=HOST (LDT, TYP) 

3230 IF NS=0 THEN RETURN 
3290 IF NS :• NCAR (TYP) THEN 3310 

3300 FOR J=1 TO 3: FOR K=1 TO NHT: HOST (J , K) =0 : NEXT: NEXT: DS=0: GOTO 3350 
3310 RMFRC 1 =(NS-NCAR (TYP) ) /HOST (LDT, TYF) : FOR J=1 TO 3:F0R K=1 TO NHT 
3312 HOST ( J, K) =RMFRC ! tHOST (J , K) : NEXT: NEXT 
3320 DS= 1 

3330 * PR I NT " RMFRC ” ; RMFPC ! , "NS” ; NS 
3340 * 

3350 DLTIME=0 

3360 IF NCAR ( TYP ) < =0 THEN 3300 

3370 DLT IME=DLTI ME+HTF (5, LDT) : NCAR (TYP) =NCAR (TYP) -NS: GOTO 3360 
3300 RETURN 
3390 STOP: RETURN 

3399 ' 

3400 TIME=LATE: FOR W= 1 TO HSWAVE 
3410 IF H1CLK (W,2) :-=TIME THEN 3430 

3420 TIME=H1CLK (W, 2) : ACODE=H 1 CLK ( W, 3) :HWAVE=W 
3430 NEXT 

3440 MCLOCK (1,2) =TIME: IF HWAVE: HSWAVE THEN RETURN ELSE MCLOCK ( 1 , 1 ) =HWAVE: MCLOCK ( 

1 . 3) =ACODE: HI CLK (HWAVE, 2 ) =HOLD : MCLOCK ( 1 , 5) =1 : MCLOCK ( 1 , 6) =1 
3450 IF ACQDE=6 THEN H 1 CLK (HWAVE, 2) =HOLD 

3460 RETURN 
3470 ' 

3400 T IME=LATE : FOR W= 1 TO HCWAVE 
3490 IF H2CLK ( W , 2 ) = T I ME THEN 3510 
3500 TIME=H2CLK(W,2) : AC0DE=H2CLK ( W. 3) :HWAVE=W 
3510 NEXT 

3520 MCLOCK (2,2) =TIME: IF HWAVE: HCWAVE THEN RETURN ELSE MCLOCK ( 2 , 1 ) =HWAVE : MCLOCK ( 

2. 3) =ACODE: H2CLK (HWAVE, 2) =HOLD: MCLOCK ( 2 , 5) =1 : MCLOCK (2, 6) =2 
3530 IF AC0DE=6 THEN H2CLK (HWAVE , 2) =HOLD 

3540 RETURN 

3549 ? 

3550 ’ 

3560 TIME=LATE: FOR W= 1 TO HNWAVE 

3570 IF H3CLK (W, 2) ; =TIME THEN 3590 

3500 T I ME=H3CLK ( W , 2 ) : AC0DE=H3CLK (W, 3) : HWAVE=W 

3590 NEXT 
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3600 MCLDCK (3, 2) =TIME: IF HWAVE HNWA7E THEN RETURN ELSE MCLQCK (3, 1) =HWAVE: MCLQCI ( 

3,3) =ACODE : H3CLK ( HWAVE , 3 ) =HOLD : MCLQCK l 3 , 3 ) « 1 : MCLOCK i 3 , 6 ) =3 

3610 IF AC0DE=6 THEN H3CLK (HWAVE, 3) =HOLD 

3630 RETURN 

363? * 

3630 ' MSQRT 

3640 TINE-LATE: FOR 1=1 TO 6 
3650 IF MCLDCK (1,2) =T I ME THEN 3670 
3660 TIME=MCL0CK(I,2) : J=I 
3670 NEXT 

3630 IF TIME=LATE THEN END 

3690 HQUR-T I ME : W-NCLOCK ( J , 1) : A=MCLOCK ( J , 3 ) : C=MCLOCK ( J , 6 > : MODE=MCLOCK « J , 5) sFRINT" 
MIN 1 '; HOUR, "CLASS” ;C, "WAVE" ;W f ” ACT I V I TY " ; A , "MODE”; MODE 
3694 RETURN 

3699 ’ 

3700 ' HLNCH 

3710 IF CM THEN 3310 

3730 M=SSH(W,2) : FOR 1=1 TO NHT: IF H1CLK (W, I +6) ' >0 THEN NCAR ( I ) =H1CLK (W, 1+6) : TYP- 
I 

3730 NEXT 

3740 ' PR I NT "No carr i ers" ; NCAR ( TYP) ; TYP 
3750 IF S3 A ( M , 1 ) < ' W THEN 3770 

3760 SSA (M, 7) =1 : IF M=TA THEN FSH=HI:G0T0 3770 ELSE M=M+1:G0T0 3750 
3770 LDT =H1CLK. < W, 4) : DT= (LZD I S+ALAD I S> *60/HSFD (LDT) +HTF (6, LDT) +HTF (7, LDT) 

3730 IF C=CC AND W=Wt‘J THEN W3ET= 1 : CC=0 : WW=0 : DS= 1 : CC 1 =0: WW 1 =0 
3790 GOSUB 3640 

3800 H1CLK ( W , 3) =HOUF: + DT : H1CLK (W, 3) =3 : GOSUB 3400: GOTO 3990 
3310 IF 02 THEN 3910 

3820 MC=SCH (W, 2) : FOR 1 = 1 TO NHT: IF H2CLK (W , I +6 ) < >0 THEN NCAR ( I ) =H2CLK ( W . I +6 ) : TYP 
= 1 

3330 NEXT 

3840 IF SCA(MC,1)CW THEN 3360 

3850 SCA (MC, 7) =1 : IF MC=CA THEN FCH=HI:GOTO 3360 ELSE MC=MC+ 1 : GOTO 3340 
3360 LDT=H2CLK <W, 4) : DT = (L2D I S+ALAD I S ) K60/HSFD (LDT) +HTF ( 6, LDT) +HTF (7, LDT) 

3870 IF C=CC AND W=WW THEN WSET= 1 : CC=0 : WW=0 : DS= 1 : CC 1 =0 : WW1 =0 
3380 GOSUB 3640 

3390 H2CLK (W, 2) =HOUR+DT : H2CLK (W, 3) =3: GOSUB 3430 
3900 GOTO 3990 

3910 MN=SNH(W,2) : FOR 1=1 TO NHT: IF H3CLK(W, 1+6) OO THEN NCAR ( I ) =H3CLK (W, 1+6) : TYF 
= 1 

3920 NEXT 

3930 IF SNA (MN, DOW THEN 3950 

3940 SNA (MN, 7) =1 : IF MN=NA THEN 3950 ELSE MN=MN+1:G0T0 3930 

3950 LDT=H3CLK (W, 4) : DT= (LZD I S+ALAD I S) *60/HSFD (LDT) +HTF (6, LDT) +HTF (7, LDT) 

3960 IF C=CC AND W=WW THEN WSET = 1 : CC=0 : WW=0 : DS= 1 : CC 1 =0 : Wl*J 1 =0 
3970 GOSUB 8640 

3980 H3CLK ( W, 2 ) =HOUR+DT : H3CLK ( W , 3 ) =3 : GOSUB 3550 
3990 PAC=HEST (LDT, TYP) -HOST (LDT t TYP) 

3992 IF NCAR (TYP) FAC THEN 4020 

4000 FOP J=1 TO 3 : FOR K=i TO NHT : HOST (J , K ) =HEST (J , K) : NEXT : NEXT 
4002 IF DS= 1 THEN GOSUB 7080 
4010 RETURN 

4020 RMFRC ! =NCAR (TYP) /PAC 

4030 FOR J=1 TO 3: FOR K=1 TO NHT 

4032 HOST ( J,K) =HOST ( J , K) +RMFRC ! * (HEST (J, K) -HOST ( J , K ) ) 

4034 IF HOST ( J , K) 'HEST ( J , K) THEN HOST ( J , K) =HEST ( J , l ) 

4040 NEXT: NEXT 

4042 IF DS=1 THEN GOSUB 7080 
4050 RETURN 
4059 ' 
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4060 * HUNLD 

4070 IF c:z GOTO 7560 ELSE IF C' 1 THEN GOTO 7770 ELSE M=SSH(W,2) 

4030 W=S3A(M,1) 

4090 FOR 1=1 TO NHT : NCAR ( I ) =H 1 CLK ( W , I ^6 ) : FOR J = 1 TO 7:F0R K= 1 TO NLI 

4092 DLA8AT ( I , J , K ) =0: NEXT: NEXT : NEXT 

4100 FOR K= 1 TO NLZ: ZONE (K) =0: NEXT 

4110 IF 35A (M , 1 ) : W THEN 4140 ELSE I=SSA(M,3> 

4120 LDT = SSA ( M , 5) : DEST =SSA ( M , 6 ) : IF DEST .. =NL Z THEN 4130 ELSE PRINT" DEST " ; DEST : STO 
P 

4130 IF ZN (DEST) . HOUR THEN Hi CLK (W, 2) =ZN (DEST) : HI CLK (W, 3) =3: GOSUB 3400: RETURN EL 
SE DLABAT ( I , LDT, DEST) =DLABAT ( I , LDT, DEST) + S5A (M, 4) : ZONE (DEST) =1 : IF M=TA THEN 4140 
ELSE M=M+ 1 : GOTO 4110 

4140 FOR 1=1 TO NHT: IF NCAR < I ) < >0 THEN L=I 
4150 NEXT 

4160 FOR K= 1 TO NLZ : DTIME (K) =0: NEXT 

4170 FOR K= 1 TO NLZ: FOR J=1 TO 3: FOR 1=1 TO NHT 

4130 IF DLABAT ( I , J , K) < =0 THEN 4190 ELSE DLABAT ( I , J , K ) =DLABAT ( I , J , K ) -HGF ( I ) : DT I ME 

(K) =DT IME (K) +HTF ( 1 , J) +HTF (2, J) +HTF ( 8, J ) : GOTO 4180 

4190 NEXT: NEXT: NEXT 

4200 ZT IME=0: FOR K=1 TO NLZ 

4210 IF DTIME (K) >ZTIME THEN ZTIME=DTIME CK) 

4220 NEXT : HI CLK ( W, 2) =H0UR+ZTIME: HI CLK (W, 3) =4: FOR K=1 TO NLZ 
4222 IF ZONE (K) = 1 THEN ZN (K ) =H 1 CLK ( W , 2 ) 

4230 NEXT 

4240 " PR I NT "Nr o-f Hel os M ; H 1CLK (W , L+6 ) 

4250 GOSUB 7400: RETURN 
4260 RETURN 

4269 * 

4270 IF CM THEN 4490 
4290 FOR TH= 1 TO NHT 

4290 IF H 1 CLK ( W , TH+6 ) =0 THEN 4330 

4700 NH=H 1 CLK ( W , TH+6 ) : I F W>=TRNH1 THEN 4320 

4310 NH= 1 ! *NH 

4320 AF ( TH ) =AP ( TH ) +NH 

4330 NEXT : HI CLK (W, 2) =LATE 

4340 * PR I NT " Hs 1 o Pool " : AP ( 1 ) ; AP ( 2) ; AP ( 3) ; AP ( 4 ) 

4350 IF M=TA THEN FSH=HI 

4360 IVAL=0: J=0: FOR 1=1 TO HSWAVE: IF H1CLK(I,0) 0 THEN 4380 
4370 J=J+ 1 : I VAL= 1 : IF J=1 THEN FSH=SSH(I,2) 

4380 NEXT: IF IVAL=0 THEN GOSUB 7400: GOTO 4480 
4390 IF 0CHCK=2 AND SSET=1 THEN GOSUB 3400: RETURN 

4400 M=FSH : FSHOLD=FSH : W=SSA (M , 1 ) : IF W=0 OR HI CLK (W, 0) ' 0 THEN 4470 ELSE SSH(W,2)= 
FSH : FOR 1=1 TO NHT : P ( I ) =AP ( I ) : NEXT 
4410 IF SSA (M, 1 > <' W THEN 4460 
4420 I =SSA ( M , 3) 

4430 IF P ( I ) >=SSA (M, 4) THEN 4450 ELSE FSH=FSHOLD : GOSUB 3400 
4440 RETURN 

4450 P ( I ) =P ( I ) -SSA (M, 4) : IF M=T A THEN 4460 ELSE M=MM:GOTO 4410 

4460 HI CLK (W, 1 ) =W: HI CLK. (W, 2) =HOUR : H 1 CLK (W, 3) = 1 : GOSUB 7400: FSH=M: RETURN 

4470 FSH=H I : GOSUB 3400 

4480 RETURN 

4 490 IF C;-2 THEN 4560 

4500 FOR TH= 1 TO NHT 

4510 IF H2CLK (W, TH+6) =0 THEN 4530 

4520 AP (TH) =AP (TH) +H2CLK (W, TH+6) 

4530 NEXT : H2CLK (W, 2) =LATE 
4540 IF MC=CA THEN FCH=HI 
4550 GOSUB 7430: RETURN 

4560 FOR TH= 1 TO NHT: IF H3CLK C W , TH+6 ) =0 THEN 4590 
4570 AP(TH)=AP (TH) +H3CLK(l*J, TH + 6) 



189 



4530 NEXT : H3CLK, (W, 2) =LATE 
4590 IF MN=NA THEN FMH=H I 
4600 ALL= 1 : GOSUB 3550: RETURN 

4609 ' 

4610 DT=HTF (3, 1 ) +HTF ( 4 , 1 ) + (LZD I S+ALAD I S ) *60/HSPD ( 1 ) 

4620 IF C: 1 THEN 4690 

4630 M=SSH ( W, 2) 

4640 SSA (M, 7) =2 : DEST=SS A ( M , 6 ) : FSH(DEST) = FSH ( DEST) +SSA(M, 2) : RASH=P ASH+SSA (M. 2) 
4642 SFFH ! (DEST) =SFFH ! (DEST) +SSA (M, 0) : SFASH 1 =SFASH! +SSA <M, 0) : FF ! =SFASH ! /TWUV ' 
4644 IF M = T A THEN 4650 ELSE M=M+ 1 :IF S3A(M,1)=W THEN 4640 
4650 FRINT" FASH Total j PASH: PRINT ” t i me : " ; HOUR 
4660 PR I NT" F IREPWR ASHORE" ; SFASH 1 , PF ' 

4664 PRINT #2, USING "######. HOUR ; PASH; FF 1 
4670 HI CLK ( W , 0 ) = 2 

4630 Hi CLK (UJ, 2) =DT+HOUR: HI CLK (l*J. 3) =5: GOSUB 3400: RETURN 
4690 IF 02 THEN 4750 
4700 MC=SCH(UJ,2) 

4710 SCA (MC, 7) =2: DE3T=SCA (MC, 6 ) :PSH(DEST) =FSH ( DEST ) +SC A (MC, 2) : F ASH ^F ASH + SC A ( MC , 2 

> 

4712 SFFH ! ( DEST ) =SFFH 1 (DEST) +SCA (MC , 0) : SFASH ! »SFASH ! +SCA (MC, 0) : FF ! =SFASH ! /TWUV ' 

4714 IF MC=CA THEN 4720 ELSE MC=MC+1:IF SCA(MC, 1 )=W THEN 4710 

4720 PR I NT " P ASH Total : " ; FASH: FR I NT " t i me : " ; HOUR 

4730 PR I NT" F IREPWR ASHORE" ; SFASH !, PF !: H2CLK ( W , 0 ) =2 

4734 PRINT #2, USING "######. ## " ; HOUR : PASH ; PF ! 

4740 H2CLK ( W s 2 ) =DT+HOUR : H2CLK ( W , 3 ) =5 : GOSUB 3480 : RETURN 
4750 MN=SNH(W,2) 

4760 SNA (MN, 7) =2: DE3T=SNA (MN, 6 ) : FSH ( DEST ) =PSH ( DEST ) + SNA (MN, 2) : FASH=PASH+SNA (MN, 2 
) 

4762 SFASH ! =SFASH ! +SNA (MN, 0) :FF!=SFASH! /TWUV! : IF MN-NA THEN 4770 ELSE MN=MN+1:IF 
SNA ( MN , 1 ) =W THEN 4760 

4770 PRINT "PASH Total *" 5 FASH : PRINT " t i me: " ; HOUR 
4730 PR I NT "F IREPWR ASHORE" ; SFASH 1 , PF H3CLK ( W , 0 ) =2 
4734 PRINT #2, USING " ###### . ## " ; HOUR ; PASH ; FF 1 
4790 H3CLK ( W , 2 ) =DT +HOUR : H3CLK ( UJ, 3) =5: GOSUB 3560: RETURN 
4799 ' 

4300 FR I NT "LSSORT" 

4310 TIME=LATE: FOR W= 1 TO LSWAVE: IF L 1 CLK ( W, 2 ) : =T I ME THEN 4330 
4320 TIME=L1CLK (W, 2) : AC0DE=L1CLK ( W , 3) : LWAVE=W 

4330 NEXT: IF MCLOCK ( 4 , 1 ) =LWAVE AND MCLOCK ( 4 , 2 ) =T I ME AND MCLOCK < 4 , 3 ) =ACODE THEN 4 
350 

4 8 40 MCLOCK ( 4 , 2 ) =T I ME : MCLOCK (4,1) =LWAVE : MCLOCK (4,3) = ACODE : L 1 CLK ( L WAVE , 2 ) =HOLD 
4342 MCLOCK (4, 5) =2: MCLOCK (4, 6 ) =1: IF AC0DE=6 THEN L1CLK (WAVE , 2) =LATE 
4330 RETURN 

4360 * 

4361 ' LCSORT 

4070 T I ME=LATE : FOR W= 1 TO LCWAVE: IF L2CLK ( W , 2 ) = T I ME THEN 4390 
4330 TIME=L2CLK(W,2) : AC0DE-L2CLK (UJ, 3) : LWAVE=W 

4390 NEXT : IF MCLOCK (5, 1 ) =LWAVE AND MCLOCK <5 . 2 ) =T I ME AND MCLOCK <5, 3) »ACODE THEN 4 
9 1 0 

4900 MCLOCK (3,2) =T I ME : MCLOCK C 5 , 1 ) =LWAVE : MCLOCK (5,3) =ACODE: L2CLK (LWAVE, 2) =HOLD 
4902 MCLOCK (5, 5) =2: MCLOCK (5, 6 ) =2: IF AC0DE=6 THEN L2CLK (LWAVE, 2) =LATE 
4910 RETURN 

4920 r 

4921 * LNSORT 

4930 TIME=LATE: FOR W=1 TO LNWAVE: IF L3CLK (W, 2) =TIME THEN 4950 
4940 T I ME -L3CLK (W, 2) : AC0DE=L3CLK (UJ, 3) : LWAVE=W 

4950 NEXT: IF MCLOCK ( 6 , 1 ) =LWAVE AND MCLOCK ( 6 , 2 ) =T I ME AND MCLOCK ( 6 , 3) =ACODE THEN 4 

970 

4960 MCLOCK ( 6 , 2 ) = T I ME : MCLOCK (6,1) =LWAVE: MCLOCK ( 6 , 3) =ACODE: L3CL! (LWAVE, 2) =HQLD 
4962 MCLOCK (6,5) =2 : MCLOCK ( 6 , 6 ) =3: IF AC0DE=6 THEN L3CLK (LWAVE , 2) =LATE 
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4970 RETURN 
4930 * 

4990 L=NLT+NBT+NCT:FOR 1=1 TO L 

4992 NCAR(I>=0:P(I+NHT)=AP(I+NHT) : NEXT : MC AR=0 : IF C'l THEN 5120 
5000 IF FSL.=HI then stop 
5010 L3=SSL ( W , 2 ) 

5020 IF UIDOO THEN 5040 ELSE L1CLK (W, 3) =1 : L1CLK (W, 2) = H0LD 
5030 G03UB 4000: RETURN 

5040 IF S3S(LS,1)MW THEN 3070 ELSE I=SSS <LS, 3) -NHT 

5050 IF P ( I+NHT) <S3S (L3, 4) THEN L1CLK (W, 1 ) =W: L1CLK (W, 2) =H0UR+ 10: L1CLK ( W, 3) =1 : G03U 
B 4000: RETURN 

5060 P (I+NHT) =P( I+NHT) -SSS <LS, 4) : NCAR ( I ) =NCAR ( I ) +3S3 (LS, 4) : MCAF;=MCAR + SSS (L3, 4) 

5062 IF LS=TS THEN 5070 ELSE L3=LS+1:G0T0 5040 

5070 L1CLK ( W, 1 ) =W: L1CLK ( W, 3) =2: FOR 1=1 TO L 

5072 AP ( I+NHT) =P ( I+NHT) :L1CLKCW, I+6)=NCAR(I) : NEXT 

5000 GOSUB 5320: IF WD=0 THEN CCC= 1 : WWW=W: GSET=0 

5090 L1CLK (W, O) = 1 

5100 L1CLK (W, 2) =HOUR+DLT I ME: FSL=L3: IF W=L3WAVE AND OCLCK-O THEN LC3ET= 1 : BEGOCL= 1 
ELSE IF W=LSWAVE THEN NL3ET= 1 : BEGNSL=1 
5110 GOSUB 4300: RETURN 

5120 IF C^2 THEN 5240 ELSE LC=SCL(W,2) 

5130 IF WDC O THEN 5150 ELSE L2CLK (W, 3) = 1 : L2CLK ( W, 2) =HOLD 
5140 GOSUB 4360: RETURN 

5150 IF SCS(LC,1)CW THEN 5100 ELSE I=SC3 (LC, 3) -NHT 

5160 IF P ( I+NHT) <SC3 (LC, 4) THEN L2CLK ( W, 1 ) =W: L2CLK ( W, 2) =HOUR+ 1 0 : L2CLK <W, 3) =1 : GOSU 
B 4060: RETURN 

5170 P ( I+NHT) =P ( I+NHT) -SC3 (LC, 4) : NCAR ( I ) =NCAR ( I ) +SCS (LC, 4) : MCAR=MC AR+SCS (LC, 4) 
5172 IF LC=C3 THEN 5100 ELSE LC=LC+1:G0T0 5150 
5100 L2CLK (W, 1 ) =W:L2CLK (W, 3) =2: FOR 1=1 TO L 

5102 AP' I+NHT) =P( I+NHT) :L2CLK(W, I+6)=NCAR(I) : NEXT: GOSUB 5320: IF WD=0 THEN CCC=2: 
WWW=W : GSET =0 

5190 L2CLK ( W . 2 ) =HOUR+DLT I ME : FCL=LC : L2CLK ( W , 0 ) = 1 

5200 IF W-LCWAVE AND 0CLCK=2 AND LL3ET = 1 THEN LLSET =2 : BEG3L= 1 

5210 IF WOLCWAVE THEN 5230 

5220 IF 0CLCK=2 AND F3L- 'HI THEN LLSET =2 : BEG3L= 1 ELSE NL3ET = 1 : BEGNSL= 1 
5230 GOSUB 4360: RETURN 
5240 LN=SNL ( W , 2 ) 

5250 IF WDM O THEN 5270 ELSE L3CLK ( W, 3) =1 : L3CLK (W, 2) =HOLD 
5260 GOSUB 4920: RETURN 

5270 IF SNS(LN, DOW THEN 5300 ELSE I=SNS (LN, 3) -NHT 

5230 IF P ( I+NHT ) < SNS (LN, 4 ) THEN L3CLK (W, 1 ) =W: L3CLK (W, 2) =HOUR+ 1 0 : L3CLK (W, 3) =1 : GOSU 
B 4920: RETURN 

5290 P( I+NHT) =P (I+NHT) -SNS (LN, 4) : NCAR ( I ) =NC AR ( I ) +SNS (LN, 4) : MCAP=MCAF:+SNS (LN. 4) 
5292 IF LN=MS THEN 5300 ELSE LN=LN+1:G0T0 5270 
5300 L3CLK (W, 1 ) =W: L3CLH (W, 3) =2: FOR 1=1 TO L 

5302 AP ( I+NHT)=P (I+NHT) :L3CLK(W, I+6)=NCAR( I) : NEXT: GOSUB 5320: IF WD=0 THEN CCC=3: 
Wl*iW=W : GSET =0 

53 1 0 L3CLK ( W , 2 ) =HOUR+DLT I ME : FML=LN : L3CLK ( W , 0 ) = 1 : GOSUB 4920 : RETURN 
531? • 

5320 PRINT ,, WELDEK" : NS=WDST : DLTI ME=0 : IF NS '=MCAR THEN WD3T=0 ELSE WDST=WDST-MCAR 
5330 FOR 1=1 TO NLT+NBT+NCT : IF NCAR ( I ) :>0 THEN DTM ( I ) =LTF (5,1) ELSE DTM ( I ) =0 
5340 NEXT: IF WD3T=0 THEN 5370 

5350 FOR 1 = 1 TO NLT+NBT+NCT : I F DTM ( I ) / DLT I ME THEN DLT I ME = DTM ( I > 

5360 NEXT: RETURN 

5370 WD=0 : NF;ES=0 : FOR 1 = 1 TO NLT+NBT+NCT : NRES=NRES+NCAR ( I ) 

5372 IF NRESNS THEN 5330 ELSE DLT I ME=DLT I ME + DTM ( I ) : NRES=NRE3-N3 
5330 NEXT 
5390 RETURN 
5399 ' 
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5400 DT=0: MCAR=0: IF C'l THEM 5520 ELSE L3=53L ( W , 2 ) : FOR 1=1 TO NLT+NBT+NCT : NCAR < I 
) =L 1CLK ( W, 1+6) : NEXT 

5410 IF 3S3 (L3, 1 ) =W THEN 333 «L3 , 7 ) = 1 : I F L3=TS THEM 5430 ELSE LS=L3+1 : GOTO 5410 
5420 FOR 1=1 TO NLT : I F NCAR ( I ) 0 THEM D=LODD IS *60/B3FD < I ) +LTF <6 , I ) +LTF (7 ,1 ) : MCA 
R=MCAR+NCAR ( I ) ELSE D=0 
5420 if d:dt THEM DT=D 
5440 NEXT 

5450 FOR I =NLT + 1 TO NLT+NBT+NCT 

5452 IF NCARCDOO THEN D=DLAD I 3*60/BSRD ( I ) +LTF (6,1) +LTF (7,1); MCAR=MCAR+NCAR ( I ) 
ELSE D=0 

5460 IF SSL ( W , 1 ) NHT+NLT+NBT THEN D=ASAD I S*60/B3FD ( I ) +CLZD I 5*60/CSFD+LTF (6 , I ) +LT 
F (7, I ) 

5470 if d;dt THEN DT=D 
5430 NEXT 

5490 IF SSLCW, 1) } NHT+NLT+NBT THEN I =NLT+NBT+NCT : DT=A3AD I 3*60/BSRD ( I ) +CLZD IS*60/C 
3PD+LTF (6, I ) +LTF ( 7 , I) 

5500 IF C=CCC AND W=WWW THEN G3ET = 1 : CCC=0: l*JWW=0 : WD= 1 
5510 L1CLK CW, 2) =HOUR+DT: L1CLK (W, 3) =3: GOSUB 4300: GOTO 5760 

5520 IF 02 THEN 5640 ELSE LC=SCL ( W , 2) : FOR 1=1 TO NLT+NBT+NCT : NCAR C I ) =L2CLK (W , I + 
6) : NEXT 

5530 IF SC3(LC,1)=W THEN SCS (LC , 7> = 1 : IF LC=CS THEN 5570 ELSE LC=LC+1:G0T0 5530 
5540 FOR 1=1 TO NLT: IF NCARCDOO THEN D=L0DD IS*60/BSFD ( I ) +LTF (6, I ) +LTF (7, I ) : MCA 
R=MCAR+NCAR ( I ) ELSE D=0 
5550 IF D'DT THEN DT=D 
5560 NEXT 

5570 FOR I =NLT + 1 TO NLT + NBT + NCT : I F NCARCDOO THEN D=DLAD 1 3*60/ BSPD ( I ) +LTF (6 , I) + 
LTF ( 7 , I ) : MCAR=fiCAR+NCAR ( I ) ELSE D=0 

5580 IF 3CL (W, 1 ) / NHT+NLT+NBT THEN D=ASAD IS*60/BSFD ( I ) +CL2D I S *60/C3FD+LTF (6,1) +LT 
F ( 7 , I ) 

5590 IF D'DT THEN DT=D 
5600 NEXT 

5610 IF 3CL (W, 1 ), NHT+NLT+NBT THEN I =NLT+NBT + NCT : DT = ASAD I S *60 /BSPD ( I ) +CL 2D I S*60/C 
3PD+LTF < 6 , D+LTFC7, I) 

5620 IF C=CCC AND W=WHW THEN GSET = 1 : CCC=0 : WWW=0 : WD= 1 

5630 L2CLK CW, 2> =HOUR+DT ; L2CLK CW, 3) =3: GOSUB 4860: GOTO 5760 

5640 LN=SNL (UJ, 2) : FOR 1 = 1 TO NLT*NBT+NCT : NCAR < I ) =L3CLK (W , I +6) : NEXT 

5650 IF SMS (LN, 1 ) =W THEN SN3 (LN, 7) = 1 : IF LN=MS THEN 5690 ELSE LN=LN+1:G0T0 5650 

5660 FOR 1=1 TO NLT 

5662 IF NCARCDOO THEN D=LODD I S*60/BSPD ( I ) +LTF (6 , I) +LTF (7, I ) : MCAR=MCAR+NCAR C I ) 
ELSE D=0 

5670 IF D'DT THEN DT=D 
5630 NEXT 

5690 FOR I =NLT + 1 TO NLT+NBT+NCT 

5692 IF NCAR ( I ) < ' O THEN D = DLAD I S*60/B3FD ( I ) +LTF ( 6 , I ) +LTF ( 7 , I ) : MCAR=MC AR+NCAR ( I ) 
ELSE D=0 

5700 IF D'DT THEN DT=D 
5710 NEXT 

5720 IF 3NL CW. 1 ) NHT+NLT+NBT THEN I =NLT +NBT +NCT : DT=A3AD I S *60/BSFD ( I ) +CLZD IS *60/C 
3PD+LTF (6, D+LTFC7, I) 

5730 IF DDT THEN DT=D 

5740 IF C=CCC AND W=WWW THEN GSET = 1 : CCC=0: WWW=0 : WD= 1 
5750 L3CLKCW,2)=H0UR+DT:L3CLKCW,3)=3:G0SUB 4920 

5760 SF‘AC=WE3T-WDST : IF MCAR SF’AC THEN WDST=WDST+MCAR ELSE WDST = WEST 
5770 IF WDST'WEST THEN WDST=WEST 
5730 RETURN 
5739 ' 

5790 L=MLT +NBT +NCT 

5300 ZN-NNB+NCLZ: IF C'2 THEN 6000 ELSE IF CM THEN 5910 ELSE LS=SSL(W,2) 

5310 FOR 1 = 1 TO L : NCAR ( I ) =L 1 CLf' < W, I +6 ) : NEXT : L 1 CLK ( W, 0 ) = 1 
5320 FOR 1=1 TO L : FOR K= 1 TO ZN: DBAT ( I , K) =0: NEXT : NEXT 
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5830 FGF; K« 1 TO ZN: LZONECK) =0: NEXT 

5340 IF 333 (L3 , 1 ) ! ' W THEN 5870 ELSE 1=333 (LS, 3) -NHT 

5850 DE3T=SS3 (LS, 6) : IF LZN ( DEST) HOUR THEN LI CLK (W, 3) =LZN (DEST) : L1CLK (UJ, 3) =3: GO 3 
UB 4300: RETURN 

5860 DBAT ( I , DEST) =DBAT ( I , DEST) +SSS (LS, 4) : LZONE ( DEST ) = 1 
5862 IF LS=TS THEN 5870 ELSE L3=L3+1 : GOTO 5840 
5870 GOSUB 6090 

5880 L 1 CLK ( W, 2 ) =HOUF;-»- ZT I ME : L 1 CLK ( W , 3) =4 : FOR K=1 TO ZN 
5882 IF LZONE (K) = 1 THEN LZN (K) =L 1 CLK ( W , 2 ) 

5890 NEXT : FRINT M NR OF CRAFT L 1 CLK ( W , LL+6 ) 

5900 G03UB 4800: RETURN 
5910 LC=SCL(W,2) 

5920 FOR 1=1 TO L: NCAR ( I ) =L2CLK (W, 1+6 ) : FOR K=1 TO ZN 
5930 IF 3C3 (LC, 1 ) < >W THEN 5960 ELSE I =SC3 ( LC , 3 ) -NHT 

5940 DEST=SC3 <LC, 6) : IF LZN (DEST) HOUR THEN L2CLK (W, 2) =LZN (DEST ) : L2CLK ( W, 3) =3: GGS 
UB 4860: RETURN 

5950 DBAT ( I , DEST) =DBAT ( I , DEST) + SC3 (LC, 4) : LZONE (DEST) =1 
5952 IF LC=CS THEN 5960 ELSE LC=LC+1:G0T0 5930 
5960 GOSUB 6090 

5970 L2CLK (W, 2) =HOUR+ZTIME: L2CLK (W,3)=4:F0R K=1 TO ZN 
5972 IF LZONE (K)=l THEN LZN (K) -L2CLK (W, 2) 

5930 NEXT: FRINT"NR OF CRAFT ” : L2CLK ( W , LL+6 ) 

5990 GOSUB 4860: RETURN 

5992 DBAT ( I , K) =0: LZONE (K) =0: NEXT : NEXT: L2CLK (W, 0) = 1 
6000 LN=SNL(W,2) 

6010 FOR 1=1 TO L : NCAR ( I ) =L3CLK ( W , I +6 ) : FOR K= 1 TO ZN 
6012 DBAT ( I, K) =0: L ZONE (10=0: NEXT: NEXT : L3CLK ( W, 0) = 1 
6020 IF SMS(LN, DOW THEN 6050 ELSE I =3NS (LN, 3) -NHT 

6030 DEST=SNS (LN, 6) : IF LZN ( DEST ); HOUR THEN L3CLK (W, 2) =*LZN (DEST) : L3CLK (W, 3) =3: GOS 
UB 4920: RETURN 

6040 DBAT ( I , DEST) =DBAT ( I , DEST) +SNS (LN, 4) : LZONE (DEST) =1 
6042 IF LN=MS THEN 6050 ELSE LN=LN+ 1 : GOTO 6020 
6050 GOSUB 6090 

6060 L3CLK (W, 2) =HQUR+ZTIME: L3CLK (W, 3) =4; FOR K=1 TO ZN 
6062 IF LZONE (K)=l THEN LZN (K) =L3CLK (W, 2) 

6070 NEXT : PR I NT "NR OF CRAFT" ; L3CLK (W , LL+6 ) 

6030 GOSUB 4920: RETURN 

6090 FOR 1=1 TO L: IF NCAR ( I ) < .. 0 THEN LL=I 
6100 NEXT: FOR K=1 TO ZN: DTI ME (K) =0: NEXT 
6110 FOR K= 1 TO ZN : FOR 1=1 TO L 

6120 IF DBAT ( I , K) < =0 THEN 6130 ELSE DBAT ( I , K? =DBAT ( I , K) -LGF ( I ) : DT I ME (K) = DTI ME (D 
+LTF ( 1 , I ) +LTF ( 2 , I)+LTF(8, I) : GOTO 6120 
6130 NEXT: NEXT 

6140 ZTIME=0: FOR K=1 TO ZN: IF DTIME(K) ZTINE THEN ZT I NE=DT I ME (K ) 

6150 NEXT: RETURN 

6159 ' 

6160 DT =0: ZN=NNB+NCLZ : Z I G=0 : Z I GNAL=0 : FOR 1=1 TO NLT+NBT+NCT 
6162 ZAVE ( I ) =0: NEXT : IF CM THEN 6320 

6170 LS=SSL ( W, 2) 

6130 SSS (LS, 7) =2: DEST=SS3 (LS, 6) : FSH (DEST) =PSH (DEST) +SS3 (LS, 2) : F ASH=P A3H+3S3 (LS, 2 
) 

6132 SFFH ! ( DEST ) =SFFH f ( DEST ) +SSS ( LS , 0 ) : SFASH ! =SFASH ! +SS3 (LS , O ) : PF 1 =3FASH ‘ /TWUV « 

6184 IF SSS (LS, 3) <=NHT+NLT THEN ZIGNAL=1 ELSE ZAVE (SSS (LS, 3) -NHT) =1 

6190 IF SSS (LS, 3) 2 NHT +NLT+NBT THEN ZIG=1 

6200 IF LS=T3 THEN 6220 

6210 LS=LS+ 1 : IF SSS (LS, 1 ) =l*J THEN 6130 

6220 FR I NT" PASH Total : u ; PASH: FRINT " t i me : " ; HOUR 

6230 FR I NT " F I REPWR ASHORE" : SFASH », FF 1 

6234 PRINT #2, USING " . 4# " ; HOUR ; FASH ; PF 1 

6240 IF ZIGNAL=1 THEN 6300 
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6250 IF Z IG = 1 THEN I =NLT+NBT+NCT : DT=LTF (3 , I ) +LTF ( 4 , I ) +ASAD I 3 *60/3SFD < I > + CLZD I S *6 

0/C3PD : GOTO 6290 

6260 FOR 1=1 TO NLT+NBT+NCT 

6262 IF ZAVE ( I ) =0 THEN 6290 ELSE D=LTF (5 , I ) +LTF ( 4 , I ) + DLAD I S*60/BSPD ( I ) 

6270 IF D DT THEN DT=D 
6230 NEXT 

6290 L1CLK (W, 2) =HOUR+DT :L1CLK (W, 0) =5: GOTO 6310 

6300 L 1 CLK ( W , 2 ) “LATE 

6310 L1CLK(W,0)*2:GOSUB 4300s RETURN 

6320 IF 02 THEN 6480 

6330 LC=SCL(W,2) 

6340 SCS (LC, 7) =2 : PASH=PASH+SCS (LC, 2) : SEASH=3EASH+SC3 (LC, 5) : SFASH ! =3FASH ! +SC3 (LC, 
0) : PF f =3FA3H 1 /TWUV ! 

6342 IF 3CS(LC,3X=NHT+NLT THEN ZIGNAL=1 ELSE ZAVE (SCS (LC, 3) -NHT) - 1 

6350 IF SCS(LC,3XNHT+NLT+NBT THEN ZIG»1 

6360 IF LC=C3 THEN 6330 

6370 LC=LC+ 1 J IF SC3 (LC, 1 ) *W THEN 6340 

6390 PR INT "PASH Tot a I : " ; PASH: PR INT " t i me: " ; HOUR 

6390 PR I NT "F I REPWR ASHORE SFASH !, PF ' 

6394 PRINT #2, USING "######. ##"; HOUR; PASH; PF 1 
6400 IF Z IGNAL= 1 THEN 6460 

6410 IF Z I G= 1 THEN I =NLT+NBT+NCT : DT=LTF (3 , I ) +LTF ( 4 , I ) +ASAD IS K60/8SPD ( I ) +CL ZD I S *6 
0/C3PD: GOTO 6430 

6420 FOR 1=1 TO NLT+NBT+NCT: IF ZAVE (I ) =0 THEN 6440 ELSE D=LTF (3,1) +LTF (4,1) + DLAD 
IS*60/BSPD(I) 

6430 IF D V DT THEN DT=D 
6440 NEXT 

6430 L2CLK ( W , 2) =HOUR+DT : L2CLK ( W, 3) =5 : GOTO 6470 
6460 L2CLK (W, 2) =LATE 

6470 L2CLK ( W , 0 ) -2 s GOSUB 4860: RETURN 
6480 LN=SNL ( W , 2) 

6490 3 NS (LN, 7) =2 : PASH=P ASH+SNS (LN, 2) : EASH=EASH+SNS (LN, 5) s SFASH ! =SFASH ! +SNS ( LN , 0 > 

: PF ! =3FA3H f /TWUV 

6492 IF SNS (LN,3X=NHT+NLT THEN ZIGNAL=1 ELSE ZAVE (SNS (LN, 3) -NHT) =1 

6300 IF SNS (LN , 3) NHT+NLT+N0T THEN Z IG= 1 

6510 IF LN=MS THEN 6530 

6520 LN=LN+1:IF SNS(LN, 1)=W THEN 6490 

6330 FR I NT "PASH Total PASH : PR INT " t i me: " ; HOUR: DT=0 
6540 FR I NT "FI REPWR ASHORE” ; SFASH 1 , PF ' 

6544 PRINT #2, USING "######.##"; HOUR ; PASH ; PF 1 
6550 IF Z I GNAL= 1 THEN 6610 

6560 IF Z I G= 1 THEN I=MLT+NBT+NCT : DT=LTF < 3 , I ) +LTF < 4 , I ) +A3AD I 3*60/BSPD < I > +CLZD I S*6 

O/CSF'D : GOTO 6600 

6570 FOR 1=1 TO NLT+NBT+NCT 

6572 IF ZAVE ( I ) =0 THEN 6590 ELSE D=LTF (3, I ) +LTF ( 4, I ) +DLADI3 K60/BSPD ( I ) 

6530 IF D DT THEN DT=D 
6590 NEXT 

6600 L3CLK ( W, 2) =HOUR+DT : L3CLK ( W, 3) =5: GOTO 6620 
6610 L3CLK (W, 2) =LATE 

6620 L3CLK (W, 0) =2: GOSUB 4920: RETURN 

6629 ' 

6630 IF CM THEN 6810 

6640 FOR TB= 1 TO NLT+NBT+NCT: IF L1CLK (W, TB+6) *0 THEN 6690 
6650 N8=L 1 CLK (W, TB+6) : IF W/TRNSl THEN 6670 
6660 NB=.9*NB 

6670 AP (TB+MHT ) =AP (TB+MHT ) +NB 
6630 NEXT : L 1 CLK ( W, 2) =LATE 
6692 IF NCT=0 THEN PRINT 

6700 IF W=L3WAVE THEN GOSUB 4900: RETURN ELSE GOTO 6720 
6710 IF SSL (W , 1 ) NHT+NLT+NBT THEN 6740 
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6720 W=W+ 1 : I F W'LSWAVE THEN 6300 

6730 IF L 1 CLK ( W , 0 ) =0 THEN F5L=3SL ( W, 2) : GOTO 6710 ELSE 6720 
6740 FOR 1=1 TO NLT+NBT+NCT: P ( I +NHT) =AP < I +NHT) : NEXT 
6750 IF 3S3CLS, 1) : W THEN 6790 

6760 I =353 (L3 , 3 ) -NHT j I F P ( I+NHT) 7553 (L3, 4 ) THEN 6780 
6770 RETURN 

6730 P ( I+NHT) =PC I+NHT) -SSS(LS. 4) : IF LS=TS THEN 6790 ELSE L3=L3+ 1 : GOTO 6750 
6790 LI CLK (W, 1 ) =W: LI CLK ( W , 2 ) =HOUR : L 1 CLK. ( W , 3 ) = 1 : GOSUB 4300 : FSL =L 3 : RETURN 
6300 FSL=HI: GDSUB 4800: RETURN 
6310 IF 02 THEN 6960 

6320 FOR TB= 1 TO NLT+NBT+NCT : IF L2CLK (W, TB+6 ) =0 THEN 6340 
6330 AP (TB+NHT) =AP (TB+NHT) +L2CLK (W, TB+6) 

6340 NEXT: L2CLK (W, 2) =LATE 
6350 IF LC=C3 THEN FCL=HI 
6860 IF W=LCWAVE THEN GOSUB 4360: RETURN 

6370 LC=FCL:W=SCS (LC, 1) : IF W=0 THEN 6950 ELSE IF SCL ( W , 1 ) :* NHT+NLT+NBT THEN 6390 
6330 W=W+1 :FCL=SCL <W, 2) : GOTO 6370 

6390 FOR 1=1 TO NLT+NBT+NCT : P ( I +NHT) =AP ( I +NHT) : NEXT 
6900 IF SC3(LC,l)OW THEN 6940 

6910 I=3CS (LC, 3)-NHT: IF P < I +NHT ) > =SCS (LC , 4 ) THEN 6930 
6920 RETURN 

6930 P ( I +NHT ) =P ( I +NHT ) -SC 3 (LC , 4 ) : IF LC=C3 THEN 6940 ELSE LC=LC+1:G0T0 6900 
6940 L2CLK <W, 1 ) =W: L2CLK (W, 2) =HOUR: L2CLK (W, 3) = 1 : GOSUB 4860 : FCL=LC : RETURN 
6950 FCL=HI: GOSUB 4360: RETURN 
6960 FOR TB= 1 TO NLT+NBT+NCT 

6962 IF L3CLK(W, TB+6)O0 THEN AP ( TB+NHT ) =AP ( TB+NHT ) +L3CLK (W , TB+6 ) 

6970 NEXT : L3CLK (W, 2) =LATE 
6980 IF LN=M5 THEN FML=H I 

6990 IF W=LNWAVE THEN RETURN ELSE LN=FML : W=SNS (LN , 1 ) 

7000 IF W=0 THEN 7070 ELSE IF 3NL ( W , 1 > ' NHT+NLT+NBT THEN 7020 
7010 W=W+1 :FML=SNL (W, 2) : GOTO 7000 

7020 FOR 1=1 TO NLT+NBT+NCT : P ( I +NHT) =AP ( I+NHT) : NEXT 
7030 IF 3NS (LN, 1 ) < ' W THEN 7060 

7040 I=SNS (LN, 3) -NHT: IF P ( I+NHT) < SNS (LN, 4) THEN RETURN 

7030 P ( I+NHT) =P < I+NHT) -SNS (LN, 4) : IF LN=MS THEN 7060 ELSE LN=LN+1:G0T0 7030 
7060 -L3CLK (W, 1 ) =W: L3CLK ( W, 2) =HOUR : L3CLK ( W , 3 ) = 1 : GOSUB 4920: FML=LN: RETURN 
7070 FNL=H I : GOSUB 4920: RETURN 
7079 * 

7030 WSET =0 : J= 1 

7090 CVAL=0: FOR 1=1 TO HSWAVE: IF H1CLK(I,3)>1 THEN 7120 
7100 HI CLK ( I , 3) =1 : HI CLK (1,2) =HOUR+J : IF J=1 THEN K=I 
7110 J=J+5:CVAL=1 

7120 NEXT: IF K: HSWAVE OR CVAL=0 THEN 7170 
7130 IF MCLOCK ( 1 , 3) =1 OR MCLOCK ( 1 , 3) =6 THEN 7160 
7140 IF HI CLK f K, 2) MCLOCK (1,2) THEN 7170 
7 1 50 HW A VE=MCLOCK ( 1 , 1 ) : H 1 CLK ( HWAVE , 2 ) =MCLOCK (1,2) 

7152 ' PR I NT " 3c hed Wave" : HWAVE ; " Time" ; HI CLK (HWAVE, 2) ; " Code" ; HI CLK (HWAVE, 3) 

7160 GOSUB 3400 

7170 WSET =0 : IF FCH=HI THEM 7230 

7130 IF CVAL= 1 AND 0CHCK=0 THEN RETURN 

7190 IF 0CHCK=2 AND SSET=0 THEN 7230 

7200 CVAL=0:F0R 1=1 TO HCWAVE: IF H2CLK(I,3) 1 THEN 7230 
7210 H2CLK ( I , 3) =1 : H2CLK (1,2) =HOUR+J : IF J=1 THEN K= I 
7220 J=J+5:CVAL=1 

7230 NEXT: IF K'HCWAVE OR CVAL=0 THEN 7290 

7240 IF MCLOCK (2, 3) =1 THEN 7270 

7250 IF H2CLK (K, 2) • MCLOCK (2. 2) THEN 7230 

7260 HWAVE=MCLCCK (2, 1 ) : H2CLK (HWAVE, 2 ) =MCLOCK ( 2 , 2 ) 

7262 ’ PR I NT "On -Cal 1 Wave" ? HWAVE: " Ti me" ; H2CLK (HWAVE , 2) ; " Cade” : H2CLK (HWAVE, 3) 
7270 GOSUB 3430 



195 



7230 WSET =0: IF FMH = H I OR HNWAVE=0 THEN RETURN 
7290 CVAL=0: FOR 1 = 1 TO HNWAVE: IF H3CLK(I,3>:i THEN 7320 
7700 H3CLK ( I , 7) = 1 : H3CLK (1,2) =HOUR+J : IF J=1 THEN K=I 
7310 J=J+5:CVAL=1 

7720 NEXT: IF K' HNWAVE OR C7AL=0 THEN RETURN 

7730 IF MCLOCK (3, 3) =1 THEN 7360 

7340 IF H3CLK (K, 2) 'MCLOCK (3,2) THEN RETURN 

7350 HWAVE=MCLOCK (3, 1 ) : H3CLK (HWAVE , 2) =MCLOCK (3,2) 

7360 GOSUB 3550 : RETURN 
7370 MC=SCH ( W , 2 ) 

7330 W=SCA(MC,1) 

7790 FOR 1=1 TO NHT: NCAR < I ) =H2CLK (W, I +6) : FOR J=1 TO 3: FOR K=1 TO NLZ 

7392 DLABAT ( I , J , K ) =0: NEXT : NEXT: NEXT 

7400 FOR k= 1 TO NLZ: ZONE (K) =0: NEXT 

7410 IF SCA(MC,l)OW THEN 7430 ELSE I=SCA(MC,3) 

7420 LDT=SCA(MC,5) :DE3T=SCA(MC,6) : IF ZN ( DEST )' HOUR THEN H2CLK (W, 2) =ZN (DEST) : H2CL 
K (W, 3) =7: GOSUB 34G0:RETURN ELSE DLABAT ( I , LDT , DEST ) =DLABAT < I , LOT , DEST ) +SCA ( MC , 4 ) : 
ZONE (DEST) = 1 : IF NC=CA THEN 7430 ELSE MC=MC +• 1 : GOTO 7410 
7470 FOR 1 = 1 TO NHT : I F NCAR(I)CO THEN L=I 
7440 NEXT 

7450 FOR K= 1 TO NLZ : DTIME (K) =0: NEXT 

7460 FOR Y - 1 TO NLZ: FOR J=1 TO 3: FOR 1=1 TO NHT 

7470 IF DLABAT ( I , J , K ) < =0 THEN 7480 ELSE DLABAT (I , J , K) =DLABAT ( I , J , K) -HGF ( I ) : DT I ME 
(K) =DT INE (K> +HTF ( l « J) +HTF (2, J ) +HTF (B, J) : GOTO 7470 
7480 NEXT: NEXT: NEXT 
7490 ZT I NE=0 : FOR K=1 TO NLZ 

7500 IF DT I ME (K) ZT INE THEN ZTINE = DT I NE (K> 

7510 NEXT : H2CLK (l»J , 2) =HOUR+ZT I ME : H2CLK ( W , 3) =4 : FOR K= 1 TO NLZ 
7512 IF ZONE (K ) = 1 THEN ZN (K) =H2CLK (W, 2) 

7520 NEXT 

7530 f PR I NT "Nr of Hel os " ; H2CLK ( W , L 4, 6 ) 

7540 GOSUB 7430: RETURN 
7550 RETURN 
7560 MN=3NH(W,2) 

7570 W=SNA(MN,1) 

7580 FOR 1=1 TO NHT ; NCAR < I ) =H3CLK ( W, 1+6 ) : FOR J=1 TO 7: FOR K= 1 TO NLZ 

7532 DLABAT ( I , J , K) =0: NEXT : NEXT: NEXT 

7590 FOR K = 1 TO ML Z : ZONE (K ) =0 : NEXT 

7600 IF SNA ( MM, 1 ) , W THEN 7620 ELSE I=SNA(MN,3) 

7610 LDT=SNA (NN, 5) : DEST=SNA (MN, 6) : IF ZN ( DEST ) HOUR THEN H3CLK (W, 2) = ZN (DEST) : H3CL 
K (W, 3) =3: GOSUB 3550: RETURN ELSE DLABAT ( I , LDT, DEST) =DLABAT ( I , LDT, DEST) +SNA (NN, 4) : 
ZONE (DEST) =1 : IF MN=NA THEN 7620 ELSE MN=MN+ 1 : GOTO 7600 
7620 FOR 1 = 1 TO NHT: IF NCAR(I)O0 THEN L=I 
7630 NEXT 

7640 FOR K=1 TO NLZ : DTINE (K) =0: NEXT 

7650 FOR K=1 TO NLZ: FOR J=1 TO 3: FOR 1=1 TO NHT 

7660 IF DLABAT ( I , J , k) < =0 THEN 7670 ELSE DLABAT ( I , J , K ) =DLABAT ( I , J , K ) -HGF ( I ) : DT I ME 

(K ) =DT I ME (K) + HTF ( 1 , J) +HTF (2, J) +HTF (3, J) : GOTO 7660 

7670 NEXT: NEXT: NEXT 

7630 ZT I ME=0 : FOR K= 1 TO NLZ 

7690 IF DTIME (K) 7ZTIME THEN ZTIME=DT INE (K) 

7700 NEXT : H3CLK (W, 2) =HOUR+ZTI ME : H3CLK ( W, 3) =4: FOR k=l TO NLZ 
7702 IF ZONE (K) = 1 THEN ZN (K) =H3CLK (l*J , 2 ) 

7710 NEXT 

7720 ’PRINT "Nr of Hel as" : H3CLK CW, L+6) 

7730 GOSUB 3550: RETURN 
7740 RETURN 

7749 * 

7750 PR I NT " 3T0CH " : BEG0CH=0 : I F 0CHCk=2 THEN RETURN 
7 60 I F OCHC! =0 THEN FCH=l : GOTO **7^0 
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7770 FOR 1=1 TO HCWAVE: IF H2CLK ( I ,3) =6 THEM H2CLK ( I , 3 ) = 1 : H2CLr < I , 1 ) = I 
7730 NEXT : GOTO 7310 

7790 0C3ET =0 : FOR 1 = 1 TO HCWAVE: IF H2CLKCI,0)=0 THEN H2CLK ( I , 1 ) — I : H2CLK (1,2) = HOLD 
: H2CLK ( I , 3) =1 
7800 NEXT 

7810 GOSUB 7080: RETURN 
7819 * 

7920 PR I NT " 3TNSH" : FMH= 1 : BEGNSH=0: NSSET =0 

7830 FOR 1=1 TO HNWAVE: H3CLK ( I , 1 ) = I : IF H3CLK(I,0)=0 THEN H3CLK (1,2) =HOLD : H3CLK ( I 

,3)=1 

7340 NEXT 

7850 GOSUB 7080: RETURN 

7859 * 

7860 PRINT"3TSH" : BEGSH=0 
7870 FOR 1=1 TO HSWAVE 

7872 IF H 1 CLK (1,0) =0 THEN HI CLK ( 1 , 1 ) =1 : HI CLK (1,2) =HOLD: H1CLK (I,3>=1: PRINT"H1CLK ( 

1.1) ";H1CLK(I, 1) , "HI CLK (1,3) " ; HI CLK C I , 3) 

7380 NEXT 

7890 GOSUB 7080: RETURN 
7999 ■' 

7900 PRINT "HALTSH" : SSET = 1 
7910 FOR 1=1 TO HSWAVE 

7912 IF HI CLK (1,0) =0 THEN H 1 CLK ( 1 , 1 ) = I : HI CLK ( I , 2) =HOLD : HI CLK ( 1 , 3) =6 : PR I NT "HI CLK ( 

1.1) ";H1 CLK ( I , 1) , "HI CLK (1,3) " ; HI CLK ( I , 3 ) 

7920 NEXT : RETURN 

7929 ' 

7930 PR I NT " BEST ART" : GSET =0 : J = 1 : IF FSL=HI THEN 8020 

7940 CVAL=0: FOR 1=1 TO LSWAVE: IF L1CLK ( I , 3) < M THEN 7970 
7950 L1CLK ( I ,2) =HOUR+J: IF J=L THEN K= I 
7960 J=J+5:CVAL=1 

7970 NEXT: IF K/LSWAVE OR CVAL=0 THEN 3020 

7980 IF NCLOCK (4, 3) =1 OR MCLOCK ( 4 , 3 ) =6 THEN 3010 

7990 IF LI CLK (K, 2) -MCLOCK (4,2) THEN 3020 

3000 LWAVE=MCLOCK (4, 1) : LI CLK (LWAVE, 2) =fiCLOCK (4,2) 

8002 PR INT"3ched Wave " : LWAVE ; " Ti me" ; L1CLK (LWAVE, 2) : " Code" ; L 1 CLK ( LWAVE , 3 ) 

3010 GOSUB 4300 

8020 GSET =0: IF FCL=HI THEN 3120 
3030 IF 0CLCK=2 AND LL3ET=0 THEN 3120 

3040 CVAL=0 : FOR 1 = 1 TO LCWAVE:IF L2CLK (1,3)01 THEM 8070 
3050 L2CLK (1,2) =HOUR+J : IF J=t THEM K=I 
3060 J =J +5: CVAL= 1 

9070 NEXT: IF K LCWAVE OR CVAL=0 THEN 9120 

3080 IF NCLOCK (5, 3) =1 THEN 3110 

3090 IF L2CLK (K . 2 ) MCLOCK (5 . 2 ) THEN 9120 

3100 LWAVE=MCLOCK (5, 1 ) : L2CLK (LWAVE, 2) =MCL0CK(5, 2) 

8102 PR I NT" On -Cal 1 Wave" : LWAVE : " Ti me" ; L2CLK (LWAVE, 2) : " Code" : L2CLK (LWAVE, 3) 

3110 GOSUB 4360 

9120 GSET=0: IF FML=H I OR LNWAVE=0 THEN RETURN 
3130 CVAL=0 : FOR 1 = 1 TO LNWAVE: IF L3CLK (1,3) > 1 THEM 3160 

9140 L3CLK (1,2) =HOUR+J : IF J=1 THEN K=I 
3150 J=J+5:CVAL=1 

8160 NEXT: IF K 1 LNWAVE OR CVAL=0 THEN RETURN 

3170 IF MCLOCK (6, 3) =1 THEN 3200 

3130 IF L3CLK (K, 2) 'MCLOCK (6,2) THEN RETURN 

3190 LWAVE=MCL0CK(6, 1) : L3CLK (LWAVE, 2) =MCLOCK (6. 2) 

3200 GOSUB 4920: RETURN 

3210 PR INT"3T0CL " : 9EG0CL=0: IF 0CLCK=2 THEN RETURN 
8220 IF OCLCK =0 THEN FCL=1:G0T0 3250 

9230 FOR 1=1 TO LCWAVE: IF L2CLK (1,3) =6 THEN L2CLK ( I , 3 ) = 1 : L2CLK ( I , 1 ) = I 
3240 NEXT: GOTO 3270 
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8250 LCSET =0: FOR 1 = 1 TO LCWAVE: IF L2CLK. ( 1 , 0) =0 THEN L2CLK ( 1 , 1 ) — I s L2CLK (1,2) =HOLD 
: L2CLK ( I , 3 ) = 1 
9260 NEXT 

8270 G03UB 7930: RETURN 

8279 • 

8280 PR INT " STNSL " : FML= 1 : BEGNSL=0: NLSET =0 

8290 FOR 1=1 TO LNWAVE : L3CLK ( I , 1 ) = I : IF L3CLK < I , 0) =0 THEN L3CLK (1,2) =HOLD: L3CLK ( I 

,3>=1 

8300 NEXT 

8310 GOSUB 7930: RETURN 

8319 ' 

8320 PR INT M 3TSL" : BEG3L— O 
8330 FOR 1=1 TO LSWAVE 

8332 IF LI CLK (1,0) =0 THEN L1CLK ( I , 1 ) =1 : L1CLK (1,2) =HOLD: L1CLK ( I , 3) =1 : PR I NT" LI CLK ( 

1.1) " ; L 1 CLK ( I , 1) , "LI CLK (1,3) " ; L 1 CLK ( I , 3 ) 

8340 NEXT 

8330 GOSUB 7930: RETURN 

8359 ’ 

8360 PRINT "HALTSL " : LLSET= 1 
8370 FOR 1=1 TO LSWAVE 

8372 IF LI CLK (1,0) =0 THEN LI CLK ( I , 1 ) =1 : LI CLK (1,2) =HOLD: LI CLK (1,3) =6: PR INT "LI CLK ( 

1.1) " ; LI CLK ( I , 1) , "LI CLK (1,3) ";L1CLK(I,3) 

8380 NEXT: RETURN 

8389 ' 

8390 FOR J=1 TO 3:F0R K=1 TO NHT : WHOST (J , K) =HOST (J , K> : NEXT : NEXT 
8400 IF CC 1 > 1 THEN 8480 

8410 IF HI CLK (WW1 , 2) =HOLD THEN RETURN 

8420 HACLK=H1 CLK (WW1 , 2) : NCAR (WTYP) =H1CLK (WW1 , WTYP+6) : GOSUB 8710 
8430 IF NS=0 THEN DLTIME=100 

8440 HBCLK=HOUR+DLT IME : IF H ACLK< =HBCLK THEN WDS=1:G0T0 8620 
8450 FOR J=1 TO 3: FOR K=1 TO NHT 

8452 HOST ( J , K ) =WH03T ( J , K > : NE XT : NE X T : H 1 CLK ( WW 1 , 2 ) =HBCLK 

8460 PRINT HACLK;HBCLK: IF MCLOCK ( 1 , 1 > =WW 1 THEN MCLOCK (1,2) =HBCLK 

8470 GOTO 8620 

8480 IF CC1>2 THEN 8560 

8490 IF H2CLK (WW1 , 2) =HOLD THEN RETURN 

8500 HACLK=H2CLK (WW1 , 2) : NCAR ( WTYP) =H2CLK ( WW1 , WTYF+6 ) : GOSUB 8710 
8510 IF NS=0 THEN DLTIME=100 

8520 HBCLK=HOUR-*-DLT IME : IF HACLK<=HBCLK THEN WDS = 1 : GOTO 9620 
8530 FOR J=1 TO 3: FOR K=1 TO NHT 

8532 HOST ( J , K ) = WHOST (J , K) : NEXT : NEXT : H2CLK (WW1 , 2) =HBCLK 
9540 IF MCLOCK (2, 1)=WW1 THEN MCLOCK ( 2, 2) =HBCLK 
955v GOTO 8620 

9560 IF H3CLK ( WW 1,2) =HOLD THEN RETURN 

8570 HACLK=H3CLK (WW1 , 2) : NCAR (WTYP) =H3CLK (WW 1 , WTYP+6) : GOSUB 3710 
8580 IF NS=0 THEN DLTIME=100 

8590 HBCLK=HOUR + DLT IME : IF HACLK'=HBCLK THEN WDS=1:G0T0 8620 
8600 FOR J=1 TO 3: FOR K=1 TO NHT 

8602 HOST ( J , K ) = WHO ST (J , K) : NEXT: NEXT: H3CLK CUJWl , 2) =HBCLK 
9610 IF MCLOCK (3, 1 ) =WW1 THEN MCLOCK (3, 2) =HBCLK 

8620 IF WDS=0 THEN DS=0 : CC=CC 1 : WW=UJW 1 ELSE CC=0 : UJW=0 : DS = 1 : WSET= 1 
8630 CC 1=0: WW 1 =0 : WNS=0 : WTYF=0 : WLDT=0: RETURN 

8639 ' 

8640 IF CC=0 THEN RETURN ELSE CC 1 =0 : WW 1 =0 
8650 IF CC:i THEN 8670 

8660 IF H 1 CLK ( W W , 3 ) > 2 OR H1CLK(WW,0) 1 THEN RETURN ELSE 8700 

8670 IF CC. 2 THEN 3690 

8680 IF H2CLK(WW,3) : '2 OR H2CLK ( WW, 0 ) : 1 THEM RETURN ELSE 9700 
8690 IF H3CLK ( WW , 3 ) 2 OR' H3CLK(WW,0) 1 THEN RETURN 
8700 CC 1 =CC : WW 1 =WW : RETURN 
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LIST 3701-0860 
0709 ’ 

9710 WPAC=HEST (WLDT, WTYP) -WHOST (WLDT, WTYP) 

0712 IF WNS< WF'AC THEN 0720 

0720 FOR J=1 TO 3 : FOR K=1 TO NHT: WHOST (J , K) =HEST (J , K) : NEXT: NEXT: GOTO 8770 

8730 RMFRC ! =WN3/WPAC 

0740 FOR J=1 TO 3: FOR K=1 TO NHT 

8742 WHOST ( J , K) =WHOST ( J , K ) +RMFRC ! t (HE3T (J , K) -WHOST (J, K) ) 

9750 IF WHOST (J,K) ; HEST ( J , K ) THEN WHOST ( J , K ) =HEST ( J , K ) 

0760 NEXT: NEXT 

9770 NS=WHOST (WLDT, WTYP) 

8700 IF NS5NCAR (WTYP) THEN 3800 

8790 FOR J=1 TO 3:F0R K=1 TO NHT: WHOST (J, K) =0: NEXT: NEXT: WDS=0: GOTO 8810 

0800 RMFRC !»(NS-NCAR (WTYP) ) /NS: FOR J-l TO 3: FOR K=1 TO NHT 

9802 WHOST ( J , K) =RNFRC ! t WHOST ( J, K) : NEXT : NEXT : WDS= 1 

8810 DLT IME=0 

8820 IF NS=0 THEN RETURN 

0030 IF NCAR (WTYP ) < =0 THEN 3860 

3040 DLTIME=DLTiriE+HTF (5. WLDT) : NCAR (WTYP) =NCAR (WTYP) -NS: GOTO 9030 
3350 PRINT WDS ; CC 1 ; WW 1 ; CC ; WW; WSET : WNS : RETURN 
8860 GOTO 3950 
Dk 
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